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SUMMARY 


A Fortran IV computer program for predicting the spectra resulting from 
electronic transitions of diatomic molecules and atoms in local thermodynamic 
equilibrium is described in detail- Included are instructions for preparing 
the input data, a program listing, and complete flow charts. The program pro- 
duces a spectrum by accounting for the contribution of each rotational and 
atomic line considered. The integrated intensity of each line is distributed 
in the spectrum by an approximate Voigt profile. The program can produce 
spectra for optically thin gases or for cases where simultaneous emission and 
absorption occurs. In addition, the program can compute the spectrum result- 
ing from the absorption of incident radiation by a column of cold gas or the 
high -temperature, self-absorbed emission spectrum from a nonisothermal gas. 

The computed spectrum can be output directly or combined with a slit function 
and sensitivity calibration to predict the output of a grating spectrograph or 
a fixed wavelength radiometer. 


INTRODUCTION 


There are many applications in the field of quantitative spectroscopy 
where the ability to compute an emission or absorption spectrum is required. 
For example, electronic transition moments (or f -numbers) are often determined 
by comparing measured and computed intensities (see refs. 1-5)- I n such an 
application, test conditions giving an optically thin gas are usually^ required 
to simplify the problem, although Drake, Tyte, and Nicholls (ref. 5 ) recently 
reported a technique for determining these quantities from strongly self- 
absorbed spectra. Detailed spectral computations are also used in predicting 
radiative heat transfer in hot -gas environments, in stellar atmosphere cal- 
culations, for determining planetary surface pressure from measured line 
broadening, and for establishing basic spectroscopic constants. 

The task of computing a reasonably accurate spectrum for a mixture of 
atoms and diatomic molecules is complicated by the enormously large number 
(often tens of thousands) of rotational lines forming the spectrum. In addi- 
tion, several kinds of electronic transitions may be involved, each with its 
own required set of line strength and wavelength equations . These considera- 
tions make it impractical to produce the band spectra from even a simple 



diatomic transition, such as BeO( 1 S -*■ 1 E) , without the aid of an electronic 
computer. In response to this need, several computer programs have been writ- 
ten to produce synthetic spectra (see, e.g., refs. 5 and 6). However, most 
programs have been written for specific applications and cannot be applied to 
more general requirements. The present work was undertaken to develop a com- 
puter program applicable, to some degree of approximation, to any "allowed 
electronic transition of diatomic molecules and atoms. Specifically, the 
program has the capability to include the following features in any 
computation: 

1 . Parallel transitions (AA = A* - A" = 0 ), in which spin splitting . and 
lambda doubling are ignored (ignoring spin splitting and/or lambda doubling 
means herein that the total multiplet strength is assumed to reside in a 
single "effective" line), 

2 . Perpendicular transitions (AA = ±l) , in which spin splitting and 
lambda doubling are ignored, 

3. 2 E «— > 2 n transitions, in which lambda doubling is ignored, 

4 - Atomic lines, 

5. Option to terminate rotational -line calculations when the molecule 
dissociates due to rotation, 

6 . Option to include the alternation of line intensities for homonuclear 
molecules , 

7. Use of an approximate Voigt profile for the line shape, and 

8. Radiative energy transport in a nonisothermal gas. 

The restrictions on spin splitting and lambda doubling can be removed with a 
modest reprogramming effort, but this would result in longer computer run 
times . 

The output options available in the program are: 

1 . Tabulation of the spontaneous -emission spectrum (i.e., optically thin 
spectrum) for a 1.0 cm path length, 

2 . Tabulation of the "true" spectrum, which incorporates spontaneous 
emission, induced emission, absorption, and externally incident radiation 
through the equation of radiative transfer, 

3. Tabulation of the curve of growth for an arbitrary number of 
wavelength intervals, 

k. Tabulation of the integrated intensity over an arbitrary number of 
wavelength intervals , and 
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5 . Tabulation of the output signal produced by a radiometer or spectrom- 
eter by specifying an instrument calibration. The instrument slit function 
can be approximated by up to 99 straight-line segments or by a Gaussian curve. 
The computation can be made at a fixed wavelength to simulate a radiometei or 
by scanning across any specified wavelength interval to simulate a grating 
instrument. In the latter case, the sensitivity can be varied as a function 
of wavelength to accurately simulate a grating -instrument calibration. 

The computer program presented is also discussed in reference 7 • That 
J. 0 P 0 J 10 QQ 0 describes the theoretical and numerical assumptions made in the 
program, compares computer results with those given by other programs, and 
demonstrates the flexibility of the program in solving a wide variety of 
problems. However, that paper does not discuss programming details and, con- 
sequently, is not in a useful form for understanding and using the program. 
This paper provides! (l) a discussion of program operations, ( 2 ) a listing 
of the program statements, ( 3 ) detailed flow charts of the program logic, and 
(2) a guide for preparing the input data necessary to operate the program. It 
is assumed that the reader has a copy of reference 7 available; therefore, 
the information contained in that paper will not be reproduced herein. 

The program is available from COSMIC, Barrow Hall, University of Georgia, 
Athens, Georgia. The program package includes the program source decks, an 
800 BPI magnetic tape with spectroscopic data for 18 diatomic systems, and 
the input and output for an extensive program checkout. When requesting this 
program, refer to Flash Sheet number ARC - 10221 . 


SYMBOLS 


Commonly 

Used 

FORTRAN IV Rotation 


ALPHA <x e 

ALTNAT 


ATOMCC 


rotational constant for equilibrium position, cm" 1 

alteration factor for homonuclear molecules, 
dimensionless 

ALTNAT = 0, lines do not alternate in intensity 
= 1, lines with K" odd are strongest 
= 2, lines with K" even are strongest 

number density of atoms, atoms -cm -3 


BE B e rotational constant for equilibrium position, cm 1 

BE0B-X BeO,B 1 R-tX 1 R band system for BeO molecule near 4700 A 


BETA P e rotational constant for equilibrium position, cm 

BLAM b V b N Planck or black-body function, W-cm -2 -q _1 -sr -1 
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BY 


CAPA 

CAPL 

CH3900 

CH4300 

CINT 3 

CN V 

CN RED 

C0ASDI 

C0+ CT 

C0 4+ 

CONST 1 
C0NST2 
CONST3 

CSPRD1 

CSPRD2 

CSPRD3 

CSTR 

C2PHIL 

C2SWAN 

DE 

DEGEN 

DELLAM 

DEPTH 

DV 


A > 

, A 

CH,B 2 Mt 2 n 

CH,A 2 A->X 2 n 

CN,B 2 H*X 2 X 

CN, A 2 n-^X 2 X 

CO, a* 

co + ,A 2 n-*x 2 x 

CO^A^X 1 ^ 


c 2jj'b 1 n->a 1 X 

C 2t A 3 H-^X 3 1[ 

D e 

d 

AA 


l,x 


D 


v 


D 


o 


rotational constant for the vibrational level v, cm” 1 
spin coupling constant, cm -1 

quantum number specifying the component of the 
resultant electronic angular momentum along the 
internuclear axis, dimensionless 

band system of CH molecule near 3900 A 

band system of CH molecule near 4300 A 

intensity factor defined in equation (12) page 12 

violet band system of CN molecule 

red band system of CN molecule 

Asundi band system of CO molecule 

comet tail band system of CO molecule 

fourth positive band system of CO molecule 

constants used in line strength expressions in sub- 
routine S2 PI2 and specified in table I 

constants used in Voigt profile expressions and 
defined in equations on page 11 

constant used in line strength expression in sub- 
routine ZERO and defined in equation on page 14 

Phillips band system of C 2 molecule 

Swan band system of C 2 molecule 

rotational constant for equilibrium position, cm -1 

electronic multiplicity, dimensionless 

distance between wavelength locations at which 
spectrum is computed, A 

depth of radiating gas, cm 

rotational constant for the vibrational level v, cm” 1 

dissociation energy referred to the v = 0 vibrational 
level, cm -1 


DZERO 



E 

E,I 

line integrated spontaneous emission, W-cm _3 -sr _1 

E 

G(v)+F(K) 

sum of vibrational and rotational energy used in itera- 
tion to find KMAX and defined by equation (15) on 
page 13 

EINSTN 

a Ml 

Einstein A coefficient , probability of transition, 
sec" 1 -part " x 

elam(m) 


spectral intensity distribution of spontaneous emission* 
W-cm” 3 -^ 1 -sr -1 

FRANCK 

V v" 

Franck -Condon factor, dimensionless 

XFACTR 


integer name of the intensity factor, CINT3, set up in 
Hollerith mode so that if CINT3 - 0.0 blanks are 
printed rather than zeros 

ilam(m) 

^A 

specific intensity, W-cm -2 -M- 1 -sr" 1 

J 

J 

rotational quantum number, dimensionless 

K 

K,N 

rotational quantum number without spin, dimensionless 

KMIN 

^min 

minimum rotational quantum number, dimensionless 

KMAX 

^max 

maximum rotational quantum number, dimensionless 

LAM(M) 

A 

wavelengths specifying incident spectrum array or linear 
segment slit function, A 

LAMBDA (M) ^ 

wavelength locations at which spectrum is computed, A 

LAMCL 


center of rotational or atomic line or location of 
center of slit function, A 

LAMMIN 

^min 

0 

minimum wavelength in computed spectrum, A 

LAMMAX 

Amax 

0 

maximum wavelength in computed spectrum, A 

lamr(m) 

A 

0 

wavelengths specifying instrument calibration, A. 

lams(m) 

A 

wavelengths at which instrument output signal is 
generated, A 

LAMS1 

A 

starting wavelength for scanning slit or wavelength for 
fixed linear slit A 

LAMS 2 

A 

stopping wavelength for scanning slit, A 

LAM1 

A 

starting wavelength for spectral integration, A 

LAM2 

A 

stopping wavelength for spectral integration, A 
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LEVELS 


number of electronic energy levels for a diatomic 
molecule 

MQ 

r a 

reduced mass in atomic -weight units 

NAME 


six -letter (or less) name specifying an atomic or 
diatomic system 

NAERAY 


number of points at which spectrum is computed 

NCENTR 


array index in ELAM(M) nearest to center of line being 
added to spectrum 

NEND 


array index in ELAM(M) at which the last contribution 
of a line is added 

NINTRV 


number of intervals in a case over which the spectrum 
will be integrated 

NPOINT 


number of array elements specifying the slit function. 
NPOINT = 0 if the slit function is specified by a 
Gaussian curve 

NRLAMS 


number of points specifying the instrument calibration 

NSLIT 


number of slits for which the instrument output signal 
will be computed 

NSPRED 


one -half the number of places in the spectrum to which 
a line will be added 

NSTART 


array index in ELAM(M) at which the first contribution 
of a line is added 

NURAR 

V 

wave number of a line center , cm -1 

NURARO 

v 0 (vV’) 

wave number of a band origin^ cm -1 

NUSPIN 

N,I 

nuclear spin of an atom in a homonuclear diatomic 
molecule , dimensionless 

N2LBH 

n 2 ^ a , n~ > x 1 s 

Lyman-Birge-Hopfield band system of N 2 molecule 

N2 1+ 

N 2 ,B 3 n-*!A. 3 £ 

first positive band system of N 2 molecule 

N2 2+ 


second positive band system of N 2 molecule 

N2+ 1- 

n|,b 2 s-x 2 s 

first negative band system of N 2 molecular ion 

N0 R 

no,b 2 ihx 2 ii 

beta band system of NO molecule 

N0 G 

NO,A 2 L>X 2 TI 

gamma band system of NO molecule 

02 SR 

O^B^vX 3 !! 

Schuman-Runge band system of 0 2 molecule 

0H3O6O 

OH,A 2 X->X 2 n 

band system of OH molecule near 3^60 A 
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PARTCC 


Q 

R 

RANGE 

RE 

RLAM(M) 

RLAMCL 

rmax 

RSLIT(M) 

SCAN 

SIGN 

SIGNAL 

SIGNS 1 ' 
SIGNS2 . 
SIGNS 3 

SIGNU1 1 
SIGNU2 J 

STEP 

SUMRE2 

TELECT 


N number density of molecules, molecules -cm" 3 

Q partition function, dimensionless 

r internuclear distance, cm 

number of line widths from the line center that a 
line is added to the spontaneous emission 
spectrum, integer 

r e internuclear distance at equilibrium position, cm 

spectral calibration of scanning slit that multi- 
plies slit function to yield instrument 
sensitivity 

value of spectral calibration RLAM(M) at slit 
centerline , LAMCL 

maximum value of RSLIT(M) 

slit function values for linear segment slit 
function 

flag to indicate whether a fixed slit (SCAN ^ l) 
or a scanning slit (SCAN = l) is specified 

constant used in line strength expressions in 
subroutine ONE and in equations (19), (20), 
and (21) on page 15 , dimensionless 

instrument output signal computed in subroutine 
SLIT, arbitrary units 

constants used in line strength expression in 
subroutine S2 PI2 and in equations (23) and 
(24) on pages 15 and l6, dimensionless 

constants used in NUBAR expression in subroutine 
S2 PI2 and in equation (22) on page 15, 
dimensionless 

wavelength interval between points where the 
instrument output signal is computed for a 
scanning slit, A 

S|R e (r v t v !i)/eao| 2 sum of the squares of the dimensionless electronic 

transition moments. The sum is over all elec- 
tronic transitions from the upper and lower 
mult ip let levels 

T elect electronic temperature, °K 


T 



term(m) 

T 

x e 

electronic term energy, cm" 1 

TOTALI 


integrated spectral intensity, over a specified wavelength 
interval, found in subroutine INTRVL, W-cm“ -sr 

TROT 

T , 

rot 

rotational temperature, °K 

TVIB 

Tvib 

vibrational temperature, °K 

U 

U 

molecular potential energy defined in equation ( 13) on 



page 13 , cm" 

V 

V 

vibrational quantum number, dimensionless 


WIDTH 


width of Gaussian slit function at half -peak or^width o: 
linear segment slit function defined by equation ( 27 ) 
page 16 , A 

WXDTHG 

w g 

width of Gaussian line profile at half -height, A 

WIDTHL 

w i 

o 

width of Lorentzian line profile at half -height, A 

WIDTHV 

' 

o 

width of Voigt line profile at half -height, A 

WE 


vibrational spectroscopic constants, cm 1 

WEXE 

w e x e 

WEYE 



WEXE 

ClIqZq 


Y 

Y 

ratio of spin coupling constant to rotational constant 
for given vibrational level (A/B v ) , dimensionless 


Mi M letter following many of the above synhols to indicate 

U upper level (i.e,, ALPHAU — a^) 

t\n M letter following many of the above symbols to indicate 

' L lower level (i.e., AhPHAL = a") 

0 the capital letter 0, when appearing in band-system names 

PROGRAM DESCRIPTION 


A listing of the program, liberally annotated with comment statements, 
is provided in appendix A. This listing, in direct .association with the flow 
charts of each subroutine given in appendix B, provides a complete and 
detailed description of the program. A simplified flow chart of the main 
program, illustrating the step-by-step flow through the program, is shown in 
figure 1. This simplified flow chart should be studied carefully to . keep the 
overall program logic clearly in view. In addition, the following discussion 
is included to aid the reader in understanding the program. 

The end result of this program is to produce the "true" spectrum^as given 
by the equation of radiative transfer. Within the computer the true 
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spectrum is generated in two distinct steps. In the first step the spectrum 
due to spontaneous emission only is computed. This is accomplished hy sum- 
ming the spectral contributions from all included lines at many points within 
the spectral range considered. For atomic lines this is accomplished entirely 
within the ATOMIC subroutine. For diatomic molecules the procedure is some- 
what more complicated. When a new band system is specified, program control 
is transferred to the SETUP subroutine. In this subroutine, the spectroscopic 
constants are read either from cards or from magnetic tape and the partition 
function, Q, is computed. After these tasks are completed, control is trans- 
ferred back to the main program where a vibrational band card is read. This 


card causes control to be transferred to the VU VL subroutine where: (l) the 

appropriate vibrational constants are computed from the spectroscopic con- 
stants, (2) an intensity factor (CIET3) is computed if needed, and (3) the 
maximum rotational quantum number is found. After these tasks are completed, 
control is transferred back to the main program, followed by an immediate 
transfer to the appropriate rotational -structure subroutine, ZERO, OWE, or 
S 2 PI 2 . Subroutine ZERO applies to parallel transitions, subroutine ONE 
applies to perpendicular transitions, and subroutine S2 PI2 applies to 


H or 


il 


transitions. In these subroutines, the wavelength and 
integrated intensity due to spontaneous emission of each rotational line are 
calculated, the intensity is distributed spectrally into a Voigt profile, 
and the line is added into the spectrum. 


If several vibrational bands are specified for several band systems, the 
summation process can include tens of thousands of rotational lines. The 
resultant spectral sum of this multitude of lines, including any atomic lines 
specified, yields the spontaneous -emission spectrum. If an optically thin 
spectrum is desired as a final result, it is given directly by the 
spontaneous -emission spectrum. 


The second step in the development of the "true" spectrum is to compute 
the wavelength-dependent absorption coefficient, including induced emission. 

As described in reference 7 , this function is given directly by dividing the 
spectral intensities due to spontaneous emission, developed above, by the 
Planck (or black body) function at the appropriate temperature and wave- 
lengths . The absorption coefficient is then combined with the geometric gas 
depth and the incident radiation, if specified, in the equation of radiative 
transfer to give the "true" spectrum. 

ti generality of the program is greatly enhanced by permitting the 

true spectrum radiating from a gas layer to be used as the incident radia- 
tion for a new gas layer . This allows the calculation of the "true" spectrum 
from a multilayer source, where each layer is specified by a different 
thermo chemical and thermodynamic environment . 

Most of the numerical steps performed in the program can be easily under- 
stood once the intent of the operation is known. The comment statements in 
the listing and the description of the theory given in reference 7 should 
make the intent of most operations clearly evident. There are, however, a 
few operations that need additional discussion. These are presented in the 
following sections. 
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Spontaneous -Emission Spectrum 

The procedure for building the spectrum involves several steps. These 
ste-ns will be easier to understand if the notation illustrated in figure 2 1 
followed closely during the discussion. A large array (ELAM(M) ) with 9 

at many points within the spectral range considered. The 

and maximum (LAMMAX) wavelengths are specified as is the wavele g tral 

(DELLAM) between points where the spectrum is to be ' narrowest 

resolution, DELLAM is normally selected to be about 1/10 of t 
line width at half -height (WHfDHV) considered in the calculation. 

The total number of points at which the spectrum is summed (HAEEAY) is 
limited to 9000. NARRAY is found from LAMMXH, LAMMAX, and DELLAM, and, 1 
M is greater than 9000, DELLAM is changed so that is 

9 000. LAMMAX is always recomputed to ensure that it is ay usld and 

ment of DELLAM from LAMMIM. Eor this reason, the value of LAMMAX used an 
output by the program may be slightly less than the value mpu 

The contributions from each rotational and atomic line to the spont^eous 

emission spectra are added into the ELftM(M) array l y ISf ll Zult Som 
The array index number nearest to the line center (NCENTR) 

(refer to fig. 2) 


NCENTR = 


LAMCL - LAMMIN 
DELLAM 


+ 1-5 


( 1 ) 


truncated 


where LAMCL is the wavelength of the line center, and the characteristic of 
Fortran IV to convert real numbers into integer numbers by rounding down 
(truncating) has been used. 

Theoretically, each line makes a contribution to the spectrum at all 
wavelengths. Beyond some distance from the line center 

tribution of the line to the spectral intensity is very small. Therefore, 
computer run time can be reduced considerably, with slight loss in accura y, 
by adding each line into the spectrum for only a limited distance f rom 
line center. In the program, this distance is specified by RANGE, in ter 
of a given number of line widths . 

If RANGE is input as zero (or the card field is left blank) then RANGE 
is sef affollows: For a p^e Gaussian line profile, the spontaneous -emission 

intensity is less than 10 -11 of the peak line intensity only three line widths 
from the line center. Therefore, RANGE = 3-0 is considered adequate for this 
case. For a Lorentzian or Voigt line profile the intensity in the wings 
much stronger than for a Gaussian profile, and RANGE ceased to 5 0 
these cases . This limitation results in approximately 5 percent of the spon 
taneous integrated intensity being excluded from the computation for a pure 
Lorentzian line profile. 

The number of entries in the ELAM(M) array from the location defined by 
NCENTR, to which contributions from a given line are added, is 
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NSRRED = 


truncated 


( 2 ) 


R ANGE -WUrTHY 
DELLAM 


+ 1.1 


The array indices that define the first (NSTART) and the last (NEND) 
entries in the ELAM(M) array to which a contribution from a line is added is 

NSTART = NCENTR - NSRRED (3) 

NEND = NCENTR + NSRRED (4) 

These indices provide limits for a simple DO loop, involving the line -profile 
expression (see refs. 7 and 8), which adds the contributions from each line 
to the correct locations in the ELAM(M) array, and hence forms the 
spontaneous -emission spectrum. In partial Fortran IV notation, the line- 
profile expression from reference 8 can be written 


ELAM(M) = E 


CSffiDl-e - 2 - 772 -™ 3 + 


CSPRD2 


1 + 4*CSRRD3 ; 


+ 0.0l6.CSERD2(l - ™gffl)fe-°-^ CSFRD3 

y wmro;' 


2.25 


10.0 


10 + CSRRD3 2 * 25 

where E is the integrated spontaneous emission of the line and 


J (5) 


CSRRD1 = 


[1- (WIDTHL/WIDTHV) ] * 10 4 

WIDTHV[ 1.065 + 0.447(WIDTHL/¥IDTHV) + 0 .058(¥IDTHL/WirTHV) 2 ’I 


(6) 


CSRRD2 = 


(widthl/wiithf) -10 4 

¥IDTHV[1.065 + 0.447(WIDTHL/¥IDTHV) + 0.058 (¥IDTHL/¥IDTHV ) 2 ] 


(7) 


CSRRD3 = 


LAMBDA - LAMCL 
¥IDTHV 


( 8 ) 


LAMBDA is the wavelength at which the spectrum is computed 

= LAMMEN + (M - 1) -DELLAM ( 9 ) 


Intensity Factor 

The first major step taken in the program for any spectral computation 
is to generate the spontaneous -emission spectrum as outlined above. ¥hen 
spontaneous emission from a cold gas is computed, however, the intensities are 
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numerically small because of the low concentration of molecules in the^upper 
s ^ a ^- e> expression for the number of molecules in the upper state is 

given by (see ref. 7) 


m n (2J x + l)e 


he 

k 


m T 

x e 


G - 1 


F 1 


+ 


Select ^vib ^rot 


N u “ 


Q 


( 10 ) 


The exponent will be a large negative number for high term ^energies and/or 
low temperatures. For example, in the case of the A n state of ^C0 at roo 
temperature, the electronic and vibrational part of the exponent is approxi- 
mately -100. The computer cannot recognize numbers less than 10 e 

and simply equates all numbers less than this value to 0.0. Therefore, a 
straightforward application of the above equation to 00 (_ t) at room 
temperature would produce meaningless numbers. 

To overcome this computer -caused limitation, an intensity factor is 
introduced as follows : 

■ ■ T g — + -$— + V-2. 30259 -GIFT3 

, . k \ T elect T vib T rot/ 

,CIFT 3 „ Wd u ( 2 Jt + l)e . (pp) 


- N u -10 


Q 


where 


0XFT3 = 


he 

k 


% 


+ 


G* 


Select T vib 


2.30259 


( 12 ) 


truncated 


From these expressions, it is clear that CIHT3 is an even power of 10 that 
ad lusts the numerical value of W u into a numerically acceptable regime . 
Results that include the intensity factor are obviously in error by this fac- 
tor and it must be removed before the results can be used. When numbers 
reflecting only spontaneous emission are printed, the ^ correction is applied^at 
the time of printing. For example, suppose an exact intensity of 3*5>< 
should have been computed, but an intensity factor of 10 was applied. The 

value found by the program is, therefore, 3 * 5 xl 0 “ 8 , but is printed as 
3 . 5xl0~ 8 xl0’" :LYO . In printer notation this appears as 3 • 5 OOE-O 0 -I. 7 O . J-ne 
intensity factor is printed by using the Hollerith array, IFACTR, so th.sk, 
when the intensity factor is zero, blanks will appear on the printed out pu 
rather than zeros. When the "true” spectrum is computed, the intensity . factor 
is removed from the calculation at the time the absorption coefficient is 
computed and no further correction is necessary. 
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Maximum Rotational Quantum Number (KMAX) 

A rotating molecule develops a centrifugal force that distorts the poten- 
tial well. If the nonrotating potential well is described by a Morse poten- 
tial, then the rot at ion -dependent potential is given by (see ref. 9 ) 



1 


e -P(R-Re) 



+ 


hK(K + 1) 

8jt 2 c|lR 2 


(13) 


where 

P = (2* 2 C|i/D e h) 1/2 a. e 
(j. = reduced mass, g 


(14) 


The effect of rotation on the potential well can be seen by the curves in 
figure 3 for HgH taken from reference 9* The molecule will dissociate when 
the vibrational plus rotational energy equals or exceeds the rot at ion -induced 
local maximum in the potential well . 1 The sum of the vibrational and 
rotational energies is given by 


E = w e (v +l/2) - w e x e (v + 1/2 ) 2 + w e y e (v + l/2 ) 3 + w e z e (v + l/2 ) 4 


+ B^K + 1 ) - d v k 2 (k + l) 2 ( 15 ) 

Therefore, once a vibrational level has been specified, an iteration scheme is 
required to find KMAX from equations ( 13 ) and ( 15 ) . 

The energy of the local maximum can be found from equation ( 13 ) if the 
rotational quantum number and the internuclear distance (R) at that point are 
known. The internuclear distance at the local maximum is found for a speci- 
fied value of K by differentiating equation ( 13 ) and equating it to zero, 
that is. 



For numerical solution, this equation is rewritten as 


f (R) = R s| 


\ . e -P(K-R e )1 e -P(R-Re) 


hK(K + 1) 
8 ir 2 cl-lD e P 


= g(K) 


(IT) 


and is illustrated in figure b. 

X 

In fact, some predissociation will occur at lower energies due to a 
wave mechanical passage through the potential barrier, but this effect is 
ignored in the present program. 
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The value of R at the local maximum, RS is found hy stepping R from 
its equilibrium value (R e ) by fixed increments (0.1x10 cm) until f(.R) 
exceeds and then falls below g(K)j R’ is then found by interpolating o 
f(n) = g(K) . If f (R) passes its maxim-urn before g(K) is reached, the r 
tional quantum number is too large and rotational dissociation woul d have 
occurred. A local maximum in the potential well does not exist in this cas 
(see curve for K = 40 in fig. 3), but a value of R at or near the peak of 
the f(R) curve is chosen for the iteration* 

Once the internuclear distance for the local maximum is found (at the 
specified rotational quantum number) it is combined with the vibrational qu 
turn number to compute the values of U and E from equations ^3) and (15). 
When the iteration has converged, U will be nearly equal , 

the difference U - E is a good criterion to guide the iteration process. 

A representative plot of U - E as a function of K is shown m figure 5* 
The desired iteration point is obviously the first root of this function- 


The first iteration is begun with K = 50, and the associated value of 
pt found as outlined above; K is then increased in increments of 2 , 

holding R fixed until U £ E. Then, by interpolating to U - E = 0, a new 
value of K is found for the second iteration. A new value of R is found 
from the new K value, which, in turn, leads to new values of U and E. The 
new values of U, E, and K, and the prior values of U, E, and K, are used 
to extrapolate to U - E - 0, which determines the next value of K. ihis 
process is continued until the value of K does not change during an 
iteration. KMAX is then set equal to this value of K. 


The iteration 
tions to converge 
in this manner for 


process is very fast, requiring only three or four itera- 
to the maximum allowed value of K* KMAX values computed 
0 2 are in good agreement with the results of reference 10 


The maximum allowed rotational quantum number is found for both the 
upper and the lower vibrational levels. The value of KMAX used in the pro- 
gram is the minim-urn of the upper state value, the lower state value, and the 
input value if one is specified. If the dissociation energy of an electronic 
level is not known, KMAX cannot be found for that level. If KMAX cannot be 
found for either level and a value is not input, the program arbitrarily sets 
KMAX = 150; experience has found this to be a reasonable value except ior the 

halides . 


Constants Used in Rotational -Structure Subroutines 
(a) Subroutine ZERO 

The line-strength expression used for these transitions 
(i.e., 2 -» X, II -> II, etc-) is (see ref. 7) 

S = KU + CSTR 

where , . 

CSTR = 0 for the R branch 

CSTR = 1 for the P branch 



(b) Subroutine ONE 


The line-strength expressions used for these transitions 
(i.e., E -> EC, II -» E, II -> A, etc.) are (see ref. 7 ) 

(KCJ + 1 - SIGN* CAPLU) (KU + 2 - SIGN-CAPLU) ' 
S (p) _ 2(KU V 1) 


S(Q) = 
S(R) - 


(KU + SIGN • CAPLU) ( 2KU + l) (KU + 1 - SIGN-CAPLU) 
2KU(KU + 1) 

(KU + SIGN* CAPLU) (KU - 1 + SIGN-CAPLU) 

2KU 


( 19 ) 

( 20 ) 
( 21 ) 


For AA = +1 transitions (i.e., II -*• E, A -» II, etc.) 

SIGN = +1 

For AA = -1 transitions (i.e., E -» II, II A, etc.) 

SIGN = -1 

(c) Subroutine S2 PI2 

The wave number (NUBAR) of each rotational line for these transi- 
tions (i.e., 2 E «-> 2 II) is defined by the equations in reference 9> page 232, 
or reference 7 • In partial Fortran IV notation, the wave number is 


NUBAR = NUBARO + BVU 


(JU + O. 5) 2 - CAPLU 2 


+ ^l^s/^JU + 0.5) 2 - If* YU* CAPLU 2 + (YU- CAPLU) 


BVL 


(JL + 0.5) 2 - CAPLL" 


+ 


SIGNU2 


Jb ( JL + 0 . 5) 2 - 4-yl-capll 2 + (yl-capll)' 


( 22 ) 


The line -strength expression for each branch (see ref. 11, or ref. 7 ) 
is given by one of the following general expressions 


Si = 


_ (2J + l) 2 + SIGNS1* (2J + l)*U- (lAT 2 + 4J + C0NST1 + 2Y-SIGNS2) 


16 (J + CONST 2) 


( 23 ) 
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s 2 = 


(2J+ l)[ (4J 2 + !_T _ I) - SIGHSl-U-(8j 3 + 12J 2 - 2J + CONST 3 + 2Y-SIGNS3)j 

l6j(j + 1) ~ 7“ 

(24) 


(25) 


where 0-,-1/p 

u = [X s - 4Y + (2J + l) 2 ] 

J = JU and Y = YU = CAPAU/BVTJ for 2 n - ^ transitions 

J = JL and Y = YL = CAPAL/BVL for A 2 II transitions 

The values of the constants in these expressions can he determined from 
references 9 and and are tabulated in table I* 


Integration in IHTRVL and SLIT Subroutines 
(a) Subroutine IHTRVL 

Subroutine IHTRVL computes integrated intensities between the 
specified wavelengths IAM1 and LAM2. The integration is, simply. 


friz's 

TOTALI = | ELAM-dA 

A sketch to help clarify the notation used in the program is given in 
figure 6. The integration proceeds by assuming a linear variation of the 
spectral intensity between points in the array. 

(b) Subroutine SLIT 

Subroutine SLIT computes the output signal that would be recorded 
by an instrument measuring intensities equal to the computed ^ spectrum. The 
instrument sensitivity is input by specifying the slit ^ function and the 
absolute calibration. The slit function can be specified by a normalized . 
Gaussian expression or by a series of linear segments. These two alternatives 
are illustrated in figure 7. In the case of a nonsymmetrical slit, as shown 
in figure 7(b), LAMCL is difficult to specify meaningfully. The width of the 
linear segment slit is defined as 


WIDTH = 


J RSLU-dA 
RMAX 


(27) 


The instrument absolute calibration is input as a single factor, if the 
instrument is a fixed wavelength radiometer, and as a function of wavelength, 
if the instrument is a grating spectrograph or a scanning spectrometer . 
(referred to hereafter as a scanning slit) . A representative calibration 
curve (RLAM(m) ) for a scanning slit is shown in figure 8. 


l6 



The, integration to yield the instrument output signal at a given wave- 
length is 


SIGNAL = 


f s lit \ 
V^unction/ 


RSLIT • RLAMCL • ELAM 
C -WIDTH 


dA 


(£ 8 ) 


where RLAMCL is either the calibration factor for a fixed wavelength slit or 
the local value of the calibration function for a scanning slit and, 


C =1.0 for a linear -segment slit function 

C = I.O 65 for a Gaussian slit function 


The integration at a given wavelength is illustrated in figure 9* For a 
scanning slit, the integration is performed repetitively at wavelength inter- 
vals given by STEP from LAMS1 to LAMS2. Only 500 locations have been reserved 
in the computer for storing SIGNAL as a function of wavelength. However, 
after this storage is filled, the data are printed, permitting the storage to 
be used again for the next 500 points. Therefore, there is no limit to the 
number of instrument -output points that can be computed. The primary purpose 
of printing the data in 500 point blocks is to facilitate adding a 
machine -plotting option. 


PROGRAM USAGE 


The program is written in the Fortran IV computer language. It operates 
at Ames Research Center on an IBM 7097 computer as an overlay job, under the 
IBJ0B Processor of the IBSYS Operating System, version 13- 

A simplified flow chart of the main program, illustrating the step-by- 
step flow through the program, is shown in figure 1. The primary method used 
to control the sequence of operations is the presence or absence of data in 
various fields of certain data cards. The inset table in figure 1 lists the 
data cards that are tested and the data fields that are filled for each card 
type. Clearly, by testing for blanks (or zeros), the card type can be 
selected. At the end of each case, control Is transferred back to the begin- 
ning of the program to read in the next case. There is no limit to the 
number of cases that can be "stacked. " 
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Deck Makeup 


Origin 

Link 

Name 

Description 

— 

0 

MAIN 

Initializes factors for each case, directs logic 
to the appropriate subroutines, and solves the 
radiative -transport equation 

— 

0 

BLOCK DATA 

Fills array OUTPUT 


0 

SKIP 

Positions data tape to start of desired file. 
User must provide this subroutine. (When called 
from SETUP it skips to the start of the next 
file, when called from VU VL it returns to the 
start of the present file.) 

ALPHA 

1 

ILAMDA 

Initializes the ILAM array with the specified 
incident radiation and initializes the ELAM 
array to 0.0 

ALPHA 

2 

SETUP 

Reads the molecular constants, computes the 
partition function, and determines the appro- 
priate transition subroutine to generate 
the intensities 

ALPHA 

3 

VU VL 

Computes and reads vibrational band constants, 
determines the maximum rotational quantum number, 
and finds the intensity factor 

ALPHA 

4 

ZERO 

Computes parallel transitions for diatomic 
molecules 

ALPHA 

5 

ONE 

Computes perpendicular transitions for diatomic 
molecules 

ALPHA 

6 

S2 PI2 

Computes doublet sigma to doublet pi transitions 
(or vice versa) for diatomic molecules 

ALPHA 

7 

ATOMIC 

Computes the electronic transitions for atoms 

ALPHA 

8 

PRINT 

Tabulates spectral intensity vs. wavelength on 
the written output 

ALPHA 

9 

INTRVL 

Computes integrated intensities between speci- 
fied wavelengths 

ALPHA 

10 

SLIT 

Computes the output signal given by a specified 
instrument sensitivity 

ALPHA 

11 

GROWTH 

Computes the curve -of- growth 


Logical tape number 


Tapes 

Usage 

Input 

Output 

Spectroscopic data tape. 
BCD format, 800 bits/inch. 
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Program Input 


A complete description of all required data cards is given in appendix C. 
Clearly, for the program to function properly, a great many values must he 
specified correctly. To reduce the probability of costly human errors, the 
spectroscopic constants and Franck -Condon factors for 18 diatomic band systems 
are stored on magnetic tape. A listing of this tape is given in appendix D. 
The tape can be easily extended to include additional band systems . 

The program logic is such that all spectroscopic constants for a given 
band system must be read from the tape, or all must be read from data cards. 

If the spectroscopic constants are read from the tape, then the Franck -Condon 
factors may also be read from the tape. However, because Franck-Condon fac- 
tors are generally more uncertain than the spectroscopic constants, the option 
exists to override the Franck-Condon factor on the tape by specifying the 
desired value on the appropriate data card. 


Computer Run Time 

The time to run a single case on the computer is controlled primarily by 
the time required to generate the spontaneous -emission spectrum. Therefore, 
the computer run time can be estimated approximately by 


Time = c • n »RANGE • (WIDTHV /DELLAM) , minutes 


(29) 


where 

c constant found from experience with a given computer, 
5- 8x10 “ 5 minute/line for the ARC IBM 709 ^* 

n total number of lines included in the computation 


Error Flags 

Tests are made at many strategic locations throughout the program to 
insure that obvious errors are not present in the data. If an obvious error 
is found, an appropriate statement is printed. If an error is found in the 
data for the externally incident radiation, the program skips to the next 
case. If an error is found in the data for a band system, the program trans- 
fers control to the PRIM 1 subroutine, which prints, in tabular form, the 
spectrum computed to that point, and then skips to the next case. If an 
error is found in the data for a vibrational band, an appropriate statement 
is printed, and the band is omitted from the calculation. However, in this 
case, the solution will continue. 
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Sample Case 


The sample case presented is intended to illustrate the general format 
of the printed output. Therefore, only a few of the program options are 
included. A complete checkout of all program options and error flag state- 
ments has been made, but such an extensive checkout does not seem appropriate 
for this report. The sample case selected for presentation is the CW(red) and 
atomic -nitrogen computation shown in figures 7( a ) an( 3- 7(^) ° f reference 7* 

The printed output for this case is shown in appendix E. Considerable care 
has been taken to output all input data used in the computation and to clearly 
identify each of them. Standard spectroscopic nomenclature from reference 9 
has been used where appropriate. Where this was not possible, more complete 
statements have been printed. 

The heading on the printed output is composed of the information placed 
on the three title cards plus a statement of the spectral range of the com- 
putation and the wavelength interval between computation points. Following 
the heading, each molecular band system and atomic system specified is 
printed. The spectroscopic constants and thermodynamic conditions specified 
for each system are also printed, in addition to the computed values of the 
spontaneous -emission intensity. 

The integrated intensity listed for each branch is the sum of the spon- 
taneous emission from all rotational lines between KMIW and KMAX that fall 
within the spectral range of the computation. BAWD TOTAL is simply the sum 
of the branch intensities. APPROXIMATE BAWD TOTAL is computed by assuming 
that all the band radiation occurs at the band origin (see equation 17 -7^- on 
page 200 of reference 9) and is normally within 30 percent or less of the 
BAWD TOTAL. A larger difference is shown here because most of the rotational 
lines fall outside the spectral range specified and, therefore, are not 
included in the BRAWCH and BAWD TOTAL values. Alter the vibrational bands 
specified for a band system have been computed, the integrated spontaneous 
emission from the entire system, SYSTEM TOTAL, is found by summing the BAND 
TOTAL values. In the sample case, only one band is specified so that SYSTEM 
TOTAL = BAWD TOTAL. The output for the atomic -nitrogen lines illustrates a 
format similar to, but somewhat simpler than, that for the band systems. 

After the last molecular or atomic system has been completed, the sum of the 
integrated spontaneous emission from every rotational and atomic line that 
fell within the spectral range is printed. 

Once the computation of the spontaneous -emission spectrum is complete, 
for a case or a layer, cards are read that specify whether an optically thin 
spectrum is desired, or whether the "true" spectrum given by the equation of 
radiative transfer is desired (see discussion in ref. 7)* For this sample 
case, a "true" spectrum is specified for a radiating gas depth of 1.0 cm, and 
it is tabulated on the printed output. Only a partial tabulation is 
presented. 

The final program option illustrated by this sample case is the spectrum 
as it would appear if recorded by a grating instrument. The slit function 
and spectral calibration assumed for the calculation are shown on the printed 
output, and in figure 7(b) of reference 7* The instrument sensitivity at any 
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wavelength is given by the product of these functions. The instrument output 
signal is found by integrating the product of the instrument sensitivity and 
the spectral intensity* A partial tabulation of the output signal as a func- 
tion of wavelength is shown on the printed output , and can be compared with 
figure 7 (a) of reference 7 * 


CONCLUDING REMARKS 


The computer program presented is applicable, to some degree of approxi- 
mation, to any "allowed" diatomic or atomic electronic transition. The pro- 
gram computes a "true" spectrum by using the equation of radiative transfer, 
which accounts for spontaneous emission, induced emission, absorption, and 
externally incident radiation. Considerable care has been taken to make the 
program easy to read and apply * Since standard spectroscopic notation is 
used and abundant comment statements are provided within the actual program 
listing, the user should be able to understand the program and not be forced 
to exhibit faith in a "canned" routine. In addition, the program. was 
designed to enable additional subroutines to be added with only minor modifi- 
cations to the main program. Likely candidates for addition to the program 
are subroutines to compute the free -free and free -bound continua. 


Ames Research Center 

National Aeronautics and Space Administration 

Moffett Field, Calif., 9^035, Dec. 2, 1968 
124 -07 -01-15 -00 -21 
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APPENDIX A 


LISTING OF PROGRAM STATEMENTS 



SJOB 

DEBUG 

ARNOLD 

$ IB JOB 


BASIC 

SDECK 


DUM03 

SDECK 


DUM04 

SDECK 


DUM07 

SDECK 


DUM08 

SDECK 


DUM10 

SDECK 


DUM11 

SDECK 


DUM12 

SIBFTC 

HF0750 



HF0750R2812 20000 4.0 2821 SEPT 19. 68 


MAIN PROGRAM 

initializes factors for each case, directs logic to the appropriate 

SUBROUTINES, AND SOLVES THE RADIATIVE TRANSPORT EQUATION. 

COMMON /C PLOT/ LAMM 1 N , LAMM AX , DELL AM , NARRAY ,C I NT 3, FACTR I ( 5 ) 

COMMON /CARR AY / I LAM ( 9000),ELAM( 9000) 

COMMON /CREAD/RE ADI »READ2 ,READ3 ,READ4,READ5 ,READ6 

C0MM0N/CBAND1/ALPHAU,BEU.BETAU,CAPAU,CAPLU,DEU.DZER0U,REU.TERMU. 

i alphal»bel,betal,capal,capll»del.dzerol»rel, terml 

COMMON/CB AND2 /WEU , WEX EU , WE YEU , WEZ EU , BVU , DVU * DEGENU •MU.ALTNAT * 
j. WEL , WEX EL ,WEYEL,WEZEL,BVL,DVL, NUSPIN 

common/ctemp/telect,tvib,trot 
COMMON/CWI DTH/WIDTHL.WI DTHV .RANGE 

COMMON/CTRAN/PARTCC,NUBARO,Q,AOE,CINT1,CINT2,KMIN,KMAX 
COMMON /CEXTRA/ I NDEX.NF I LE, SYSTEM, TOTAL, OUTPUT (12) 

DIMENSION T I T LE ( 36 ) 

REAL I LAM .LAMM AX , LAMM I N ,MU .NUBARO , NUSP I N, LAMBDA 

LOGICAL NEWCAS ^ A rl _ , , . , c . 

DATA BLANK/6H /, PR I NTS/6HPR I NT /, CASE/4HCASE/ 


C READ THE FIRST CONTROL CARD IN EACH CASE. IF FIRST 4 COLUMNS DO NOT SPELL 
C CASE, READ THROUGH TO THE NEXT CASE. 

10 READ (5,505) SEARCH 

IF (SEARCH .EG. CASE) GO TO 20 
GO TO 10 

C INITIALIZE RUNNING SUMS, CONSTANTS, AND FLAGS FOR THE NEW CASE. 

20 TOTAL=0.0 

SYSTEM-0.0 
DEPTH-0.0 
CINT3-0.0 

DO 30 M=1 ,5 

C OUTPUT (11) IS A BLANK CHARACTER SET IN BLOCK DATA. 

30 FACTR I (Ml =OUTPUT ( 11 ) 

NEWCAS= .FALSE. 

C READ TITLE CARDS FOR THIS CASE. 

READ ( 5,500) (TITLE(M) »M=1 » 36 ) 

C PRINT TITLES ON WRITTEN OUTPUT. 

WR I TE ( 6 » 600 ) (TITLE(M) »M=1 *36 ) 

C READ WAVELENGTH RANGE FOR CALCULATION AND WAVELENGTH INTERVAL BETWEEN 
C POINTS IN THE COMPUTED SPECTRUM. 

READ ( 5,501) LAMM I N , LA MM AX .DEL LAM 

C TEST DELLAM. IF IT IS TOO SMALL TO ALLOW COVERAGE FROM LAMM I N TO 
C LAMMAX WITH 9,000 ENTRIES IN THE ARRAY, INCREASE DELLAM. 

IF ( ( LAMMAX— LAMM I N ) /DELLAM .GT . 8999.) D£LLAM= ( LAMMAX-LAMMI N ) /8999 • 
NARRAY = 1 . 1 +( LAMMAX-LAMMIN ) /DELLAM 

C ADJUST LAMMAX TO MAKE IT AN EVEN INCREMENT OF DELLAM AND WRITE GENERAL 
C HEADING FOR THIS CASE. 

ARRAYN-NARRAY 

LAMMAX=LAMMI N + ( ARRA YN- 1 . 0 > *DEL LAM 
WRITE (6, 602) LAMM I N , LAMMAX , DELL AM 

C 
C 
C 
C 

CALL ILAMDA (NEWCAS) 

IF (NEWCAS) GO TO 10 
GO TO 50 


SUBROUTINE ILAMDA INITIALIZES THE I LAM ARRAY WITH THE SPECIFIED 
INCIDENT RADIATION AND INITIALIZES THE ELAM ARRAY TO 0.0. 

IF NEWCAS - .TRUE., AN ERROR WAS DETECTED IN THE INCIDENT SPECTRUM 
mn THtc Will RF OMITTED. 


c- 

C 

C 

C 

c 


STATEMENT 40 IS A KEY READ STATEMENT IN THE PROGRAM. REQUI 

INFORMATION IS READ AND THE PROGRAM TESTS WHICH FIELDS HAVE 
TO DETERMINE WHAT SHOULD BE DONE NEXT. WHEN RETURNING FROM 
ILAMDA OR ATOMIC SUBROUTINES, THIS CARD HAS ALREADY BEEN READ 


C THE FOLLOWING TABLE DEFINES THE FIELDS THAT ARE FILLED FOR 
C EACH CARD TYPE. 



c 

CARD TYPE 


READ1 

READ2 

READ3 

READ4 

READ5 

READ6 

c 

c 

(COLUMNS ) 
(TYPE FIELD) 

1-10 

E10.0 

11-20 

E1O.0 

21-30 

E10.0 

31-40 

E10.0 

41-45 

F5.0 

67-72 

A6 

c 

c 

VIBRATIONAL 

BAND 

VU 

VL 

KM I N 

KMAX 



c 

c 

BAND 

SYSTEM 


PARTCC 

TELECT 

TV I B 

1 

TROT 

[ IF ON CARDS) 
(INDEX) 

NAME 

c 

c 

ATOMIC 

SYSTEM 


ATOMCC 

TELECT 

PARTITION 

FUNCTION-Q 



name 

c 

c 

CURVE OF 
GROWTH 


LAM 1 

LAM2 




GROWTH 

c 

c 

RADIATIVE 

TRANSPORT 


DEPTH 





LAYER 

c 

c 

PRINT 

SPECTRUM 







PRINT 

c 

c 

DONT PRINT 
SPECTRUM 






NONE 

40 

READ( 5, 

502 ) 

RE ADI ,READ2 ,READ3 , 

READ4, READS 

»READ6 



c 

WHAT CARD 

TYPE 

HAS BEEN 

READ. 





c 

IS THIS A 

VIBRATIONAL BAND. 





50 

I F ( RE AD6 .EQ. BLANK) 

GO TO 70 





c 

IS THIS A 

BAND 

SYSTEM. 







IF ( READ4 . 

NE. 0.0) 

GO TO 60 






C IS THIS AN ATOMIC SYSTEM. 


IF (READ3 .NE. O.O) GO TO 110 

C THE SPONTANEOUS EMISSION SPECTRUM FOR THIS CASE OR LAYER IS COMPLETE. 

TOTAL=TOTAL+SYSTEM 
IF (TOTAL .EQ. 0.0) GO TO 55 

IF (SYSTEM .NE . 0.0) WRITEI6.606) SYSTEM . ( FACTR I ( M ) , M = 1 , 5 ) 

WRITE (6, 6 07) TOTAL ,( FACTR I IM) ,M=1,5I 
SYSTEM 3 0.0 
TOTAL= 0.0 

C IS THIS A CURVE OF GROWTH CALCULATION. 

55 IF (READ2 .NE. 0.0) GO TO 115 

C IS THIS A RADIATIVE TRANSPORT CALCULATION. 

IF ( READ1 .NE. 0.0) GO TO 120 
GO TO 160 



C TRANSFER CONTROL TO THE APPROPRIATE SUBROUTINE. 

C SUBROUTINE SETUP READS THE MOLECULAR CONSTANTS, COMPUTES THE PARTITION 
C FUNCTION, AND DETERMINES THE APPROPRIATE TRANSITION SUBROUTINE TO 
C GENERATE INTENSITIES DUE TO SPONTANEOUS EMISSION. IF NEWCAS = .TRUE. AN ERROR 
C WAS DETECTED IN THE MOLECULAR CONSTANTS AND THE REMAINDER OF THIS 
C CASE WILL BE OMITTED. 

60 CALL SETUP (NEWCAS) 

IF (NEWCAS) GO TO 180 
GO TO AO 

C SUBROUTINE VU VL COMPUTES AND READS VIBRATIONAL SAND CONSTANTS 
C AND DETERMINES THE MAXIMUM ROTATIONAL QUANTUM NUMBER AND THE INTENSITY 
C FACTOR. 

70 CALL VU VL (SKIPVV) 

IF (SKIPVV .NE. 0.0) GO TO 40 
GO TO ( 80,90 , 100 ) , I NDEX 

C SUBROUTINE ZERO COMPUTES PARALLEL TRANSITIONS FOR DIATOMIC MOLECULES. 

80 CALL ZERO 

GO TO 40 


C SUBROUTINE ONE COMPUTES PERPENDICULAR TRANSITIONS FOR 
C DIATOMIC MOLECULES. 

90 CALL ONE 
GO TO 40 

C SUBROUTINE S2 PI2 COMPUTES DOUBLET SIGMA TO DOUBLET PI TRANSITIONS 
C (OR VICE VERSA) FOR DIATOMIC MOLECULES. 

100 CALL S2PI2 
GO TO 40 

C SUBROUTINE ATOMIC COMPUTES ELECTRONIC TRANSITIONS FOR ATOMS. 



110 CALL ATOMIC 
GO TO 50 

C THIS IS A CURVE-OF-6ROWTH CALCULATION. 

115 CALL GROWTH 
DEPTH" 0.0 

C RE-INITI ALIZE THE I LAM ARRAY TO ENABLE A SEPARATE RADIATIVE TRANSPORT 
C CALCULATION IF SPECIFIED. 

DO 117 M=1.NARRAY 
117 ILAM(M)=0.0 

GO TO 40 




C THIS IS A RADIATIVE TRANSPORT SOLUTION. GENERATE THE I LAM ARRAY. 


120 


DEPTH "READ1 

WRI TE ( 6 .608 ) DEPTH 


DO 130 M = 1*NARRAY. 

IF ( ELAM(M) .LE. 1.0E-36) GO TO 130 
COUNT" M r 

LAMBDA" (LAMM IN +( COUNT-1 . 0 ) *DELL AM >* 1 . 0E-8 

BLAM=1 . 1904E- 16*EXP ( -1.43879/ I LAMBDA*T ELECT ) ) / ( LAMBDA**5* 
1 ( 1.0-EXP (-1.43879/1 LAM8DA*T ELECT ) > > ) 

CILAM1=AL0G( 8. 40032E+15*LAMBDA**5*( l.O-EXP (-1.43879/ 

, m iMBriA*TFi frTm l 


CILAM2=ALOG(DEPTH) 

CILAM3"ALOG< ELAM(M) ) 

C I L AM4* 1 .43879/1 LAMBOA*TELECT ) -2 . 30259*C I NT3+C 


ILAM1+C 1 LAM2 


1 +C1LAM3 

IF (CILAM4 .GT. 87.0) CILAM4=87.0 
C I LAM 4 = EXP ( C 1 LAM4 ) 

I LAM( M ) "BLAM- ( BLAM- ILAM ( M ) ) *E XP ( -C I L AM4 ) 
130 CONTINUE 


C 

C 


THE ILAM ARRAY HAS BEEN GENERATED FOR THIS LAYER. 

INITIALIZE THE INTENSITY FACTOR AND ELAM ARRAY FOR THE NEXT LAYER. 


CINT3=0.0 
DO 140 M = l*5 

140 FACTR I ( M ) = OUTPUT (11) 

DO 150 M=1 *N ARRAY 

150 ELAM ( M ) =0 . 0 

GO TO 40 


THE CALCULATION OF THE FINAL SPECTRAL INTENSITY ARRAY IS FINISHED. 
COMPLETE THE SOLUTION FOR THE OUTPUT OPTIONS DESIRED. 

IF THIS IS A RADIATIVE TRANSPORT SOLUTION* TRANSFER THE VALUES OF 
ILAM INTO THE ELAM ARRAY FOR CONVENIENCE IN LATER MANIPULATION. 


160 I F ( DEPTH .EQ. 0.0) GO TO 180 
DO 170 M=1*NARRAY 
170 ELAM ( M ) = I LAM ( M ) 


C GENERATE WAVELENGTHS AND STORE THEM IN THE ILAM ARRAY. 


180 DO 190 M=1*NARRAY 
COUNT" M 

190 ILAM(M)=LAMMIN + ( COUNT- 1 . 0 )* DEL LAM 

IF (NEWCAS) GO TO 200 
C IS THE SPECTRUM TO BE TABULATED. 

I F ( READ6 .NE. PRINTS) GO TO 210 

C SUBROUTINE PRINT TABULATES SPECTRAL INTENSITY VERSUS WAVELENGTH ON 
C THE WRITTEN OUTPUT. 

200 CALL PRINT ( NEWCAS ) 

IF (NEWCAS) GO TO 10 

C READ A CARD WHICH SPECIFIES THE NUMBER OF INTERVALS AND THE NUMBER 


C OF SLITS TO BE CONSIDERED. 

210 READ ( 5*503) NINTRV.NSLIT 

C SUBROUTINE INTRVL COMPUTES INTEGRATED INTENSITIES BETWEEN SPECIFIED 
C WAVELENGTHS. 

IF (NINTRV .NE. 0) CALL I NTRVL ( N1 NTRV ) 

C SUBROUTINE SLIT COMPUTES THE OUTPUT SIGNAL GIVEN BY A SPECIFIED 
C INSTRUMENT SENSITIVITY. 

IF (NSLIT .NE. 0) CALL SLIT(NSLIT) 

GO TO 10 




C FORMATS FOR READ STATEMENTS 



500 FORMAT! 12A6) 

501 FORMATC 3E10.0I 

502 FORMAT(4E10.0»F5.0,21X,A6) 

503 FORMAT! 215) 

504 FORMAT (4E10.3.26X.A6) 

505 FORMAT ( 1 A4 ) 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT! 1H1 ,29X» 12 A6/30X.12A6/30X.12A6) 

601 FORMAT (31X.12A6) 

602 F ORMAT (//21X.27HTHE SPECTRUM COMPUTED FROM .F8.2.4H TO .F8.2. 

1 14H ANGSTROMS AT .F6.3.19H ANGSTROM INTERVALS//! 

606 FORMAT! 1 0 3X , 1 2 HSYST EM TOT AL , IX , 1PE 10 . 4 , 5 A1 ) 

607 F ORMAT !/80X*35HT0TAL OF ALL INTEGRATED I NT ENS I T I ES . 1 X . 1 PEI 0 . 4 . 5A 1 ) 

608 F ORMAT (//24X.73HTHIS IS A RADIATIVE TRANSPORT SOLUTION, DEPTH OF A 
1BOVE RADIATING LAYER IS*F9.3,4H CM.//) 


SIRFTC HF075A 

BLOCK DATA 

C BLOCK DATA SUBROUTINE IS USED TO LOAD HOLLERITH INFORMATION INTO THE 
C ARRAY. OUTPUT ( 12 ) . THIS ARRAY IS USED TO BUILD THE ARRAY FACTR I 1 5 ) 

C FOR PRINTING THE INTENSITY FACTOR. 

COMMON /CEXTRA/ I NDEX.NF I LE, SYSTEM, TOTAL .OUTPUT! 12) 

DATA (OUTPUT (M) , M= 1 , 1 2 ) / 1H0 , 1 H 1 , 1 H2 , 1 H3 , 1H4 , 1 H5 , 1H6 , 1H7 » 1H8 , 1H9 , 

1 1H , 1H— / 



$ I BFTC HF075N 

SUBROUTINE SKIP! I ,K> 

C SUBROUTINE SKIP POSITIONS THE SPECTROSCOPIC DATA TAPE (TAPE 9) TO THE 
C PROPER FILE. 

WRITE ! 6 ,700 ) 

STOP 

C FORMAT FOR ERROR STATEMENT. 

700 FORMAT (/30X.48HTHE COMPUTATION WAS TERMINATED BECAUSE THE USER , 

1 23HHAS NOT SUPPLIED A SKIP/ 

2 30 X , 46HSUBR0UT I NE TO POSITION THE SPECTROSCOPIC DATA , 

3 24HTAPE TO THE PROPER FILE.//) 



SORIGIN ALPHA 

$ I BFTC HF075B 

SUBROUTINE ILAMDA (NEWCAS) 

C SUBROUTINE ILAMDA INITIALIZES THE I LAM ARRAY WITH THE SPECIFIED 
C INCIDENT RADIATION AND INITIALIZES THE ELAM ARRAY TO 0.0. 

COMMON/ CPLOT /LAMM I N , LAMM AX .DELLAM , NARR AY , C I NT 3 , FAC TR I ( 5 ) 

COMMON/C ARRAY / I LAM ( 9000), ELAM! 9000) 

COMMON /CREAD/RE AD 1 .READ2 , READ3 , READ4 , READ5 .READ6 

COMMON/C BAND 1 /ALPHAU.BEU.BET AU .CAPAU.CAPLU.DEU. DZEROU > REU » TERMlrt 
1 ALPHAL.BEL.BETAL.CAPAL.CAPLL.DEL, DZEROL , REL , TERML 

COMMON/CBAND2 /WEU » WEX EU.WEYEU. WEZ EU » B VU .DVU.DEGENU.MU.ALTNAT » 

1 WEL.WEXEL.WEYEL.WEZEL.BVL. DVL » NUSPIN 

COMMON/C TEMP /TELECT ,TVIB .TROT 
COMMON /CWIDTH/WIDTHL.WIDTHV. RANGE 

COMMON /CTRAN/PARTCC » NUB ARO .O.AOE.CINTl .CINT2.KMIN, KM AX 
COMMON/C EXTRA/ I NDEX.NF I LE, SYSTEM. TOTAL .OUTPUT! 12 ) 

REAL ILAM.LAMMAX.LAMMIN 
LOGICAL NEWCAS 
DATA BLANK/6H 

C INITIALIZE VALUES SO THAT THE I LAM ARRAY CAN BE SET TO 0.0 IF AN INCIDENT 
C SPECTRUM IS NOT SPECIFIED. 

ELAM< 1)=LAMMIN 
ELAM! 2 ) =LAMMAX 

ELAM(5001)=0.0 
ELAM! 500 2 ) =0 . 0 

NLAM=-1 
NILAM=4999 
NO I LAM= 0 

C READ THE VALUES OF THE INCIDENT RADIATION VERSUS WAVELENGTH AND STORE 
C THEM TEMPORARILY IN THE ELAM ARRAY. 
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10 READ ( 5 *500 ) RE ADI . READ2 » RE AD3 .READ4 . RE AD5 , READ6 

IFIREAD6 .NE. BLANK) GO TO 20 

NO I L AM= 1 

NLAM=NLAM+2 

N I LAM = N I LAM+2 

ELAM(NLAM)«READ1 

EL AM ( N I LAM) *RE AD2 

ELAM ( NLAM+1 ) «RE A03 

ELAM( NILAM+1 )=READ4 

GO TO 10 

20 NL AM=NLAM+1 

IFfNLAM.NE.O ) GO TO 25 
Ml = 1 

GO TO 50 

25 IF { ELAM ( NLAM ) .EG. 0.01 NLAM=NLAM-1 

C PRINT SPECIFIED INCIDENT RADIATION. 


WRITEI6.600) 

DO 30 M= 1 .NLAM 

30 WR I TE ( 6 .601 I E LAM ( M ). ELAM ( M+5 000 ) 


C TEST WAVELENGTHS OF THE INITIAL I LAM VALUES. 

C THE LAST WAVELENGTH MUST BE EQUAL TO OR GREATER THAN LAMMAX. 

C THE FIRST WAVELENGTH MUST BE LESS THAN OR EQUAL TO LAMMIN. 

C SET THE INDEX Ml SO THAT LAMMIN IS BOUNDED BY THE APPROPRIATE ELAM ELEMENTS. 
C WAVELENGTHS MUST INCREASE MONOTON I CALLY . 



I F (ELAM ( NLAM ) 

• LT. 

LAMMAX 1 

GO 


Ml =0 




35 

I F ( ELAM ( M1+ 1 ) 

.GT. 

LAMMIN) 

GO 


Ml =M 1+1 
GO TO 35 

38 I F ( M 1 .EQ. 0) GO TO 80 

DO 40 M = 2 *NLAM 

IF (ELAM(M) .LE. ELAM ( M— 1 ) ) GO TO 80 
40 CONTINUE 

C INITIALIZE THE I LAM ARRAY. 


50 


60 


DO 60 M=1 .NARRAY 

COUNT=M 

ILAM(M)=ELAM(M1+5000 ) +(ELAM(M1+5001 )-ELAM(Ml+5000) )*(LAMMIN+ 
1 ( COUNT- 1 .0 >*DELLAM-ELAM (Ml ) ) / ( ELAM ( Ml + 1 ) -ELAM (Ml ) ) 

IF ( LAMM I N+COUNT*DELL AM .GT. ELAM ( Ml +1 ) ) M1=M1+1 


C INTIALIZE THE ELAM ARRAY. 

DO 70 M = l, NARRAY 
70 ELAM(M)=0.0 

RETURN 

C THERE IS AN ERROR IN THE INCIDENT RADIATION DATA. WRITE 
C AN ERROR MESSAGE AND OMIT THIS CASE. 

80 WRITEI6.700) 

NEWCAS=.TRUE. 

RETURN 

C FORMATS FOR READ STATEMENTS. 

500 FORMAT (4E10.0.F5 .0.21X.A6 ) 

C FORMATS FOR WRITE STATEMENTS. 


600 FORMAT (48X.35HSPECTRUM INCIDENT ON GAS SAMPLE// 

1 5 1 X » 1 OHWAVE LENGTH .10X.8HINCIDENT/ 

2 51X.2HIN.18X.9HINTENSITY/ 

3 5 1 X »9H ANGSTROMS . 1 IX » 1 5HW/CM2 -M I CRON-SR/ / ) 

601 FORMATI50X.F8.2.13X.1PE10.4) 


C FORMAT FOR ERROR STATEMENT. 


700 FORMAT! //22X.50H0NE OF THE FOLLOWING RESTRICTIONS ON THE INCIDENT 

1 » 37HSPEC TRA L INTENSITY ARRAY WAS VIOLATED/ 

2 36X.58HTHE FIRST WAVELENGTH MUST BE LESS THAN OR EQUAL TO L 
3AMMIN./ 

4 36X.60HTHE LAST WAVELENGTH MUST BE EQUAL TO OR GREATER THAN 

5 LAMMAX./ 

6 36X.40HWAVELENGTHS MUST INCREASE MONOTON I CALLY. ) 


END 



SORIGIN ALPHA 

$ I BFTC HF075C 

SUBROUTINE SETUP (NEWCAS) 

C SUBROUTINE SETUP READS THE MOLECULAR CONSTANTS, COMPUTES THE PARTITION 
C FUNCTION, AND DETERMINES THE APPROPRIATE TRANSITION SUBROUTINE TO 
C GENERATE INTENSITIES DUE TO SPONTANEOUS EMISSION. 

COMMON /C PLOT /LAMM IN, LAMM AX , DELL AM ,NARRAY,CINT3» FAC TR I ( 5) 
COMMON/CARRAY/ILAMI 9000)»ELAM( 9000) 

COMMON /CRE AD/RE ADI .READ2.READ3, READ4, READ 5, RE AD6 

COMMON /CB AND 1 / ALPHA U,BEU, BET AU » CAP AU » CAPLU , DEU » DZEROU « REU, TERMU , 

1 ALPHAL,BEL,BETAL»CAPAL,CAPLL,DEL,DZEROL,REL*TERML 

COMMON /CBAND2 /WEU, WEX EU, WE YEU » WE2 EU » BVU , D VU , DEGENU, MU, ALTN AT , 

1 WEL,WEXEL»WEYEL,WEZEL.BVL,DVL» NUSPIN 

COMMON /CTEMP/TELECT ,TVIB,TROT 
COMMON /CW I DTH/W I DTHL, WIDTH V , RANGE 

COMMON/CTRAN/PARTCC, NUB ARO,Q,A0E,C INTI ,C I NT2 , KM I N , KMAX 
COMMON /C EXTRA/ INDEX, NFILE.SY STEM, TOTAL»OUTPUT(12) 

DIMENSION ALPHA (30) ,BE(30) , DEGEN (30) .TERM (30) ,WE(30) , 

1 WEXE( 30) »WEYE( 30 ) ,WEZE( 30) »DUMMY(2) 

REAL KMAX 1, KMAX2, LOWER, MU, NUBARO, NUSPIN, I LAM, NAME 
LOGICAL NEWCAS 

DATA ENDS/6HEND /, BLANK/6H / 

DATA UPPER/ 6HUPPER /, L0WER/6HL0WER /, ST ATE/6HSTATE / 

DATA ODD/6H ODD / , EVEN/6H EVEN / 

REWIND 9 

C A NEW BAND SYSTEM HAS BEEN SPECIFIED. 

PARTCC=R EAD 1 
T ELECT = READ2 
TVIB=READ3 
TROT=READ4 
I NDEX = READ5 + . 1 

C WRITE THE INTEGRATED INTENSITY DUE TO SPONTANEOUS EMISSION FOR THE 
C PREVIOUSLY COMPUTED SYSTEM. 

IF (SYSTEM ,NE. 0.0) WRITE(6»600) SYSTEM , ( FACTR I ( M ) , M = 1 , 5 I 

TOTAL=TOTAL+ SYSTEM 
SYSTEM=0 • 0 

C ARE THE CONSTANTS FOR THIS BAND SYSTEM INPUT ON CARDS. 

IF ( INDEX .NE. 0 ) GO TO 40 

C THE CONSTANTS FOR THIS BAND SYSTEM ARE ON TAPE. 

10 READ (9,900) NAME, INDEX, NFILE 

IF (NAME .EQ. ENDS) GO TO 120 
IF (NAME .EQ. READ6 ) GO TO 20 
CALL SK I P ( 1 , 9 ) 

GO TO 10 

C READ PAST THE FRANCK-CONDON FACTORS, USING T ERM ( M2 ) AS A DUMMY 
C ARRAY. 

20 DO 30 Ml = 1 , 20 

30 READ (9,901) ( TERM ( M2 ) , M2= 1,20) 

C READ THE CONSTANTS FROM TAPE. 

READ (9,902) RE ADI ,AL TNAT , DEU , BET AU , REU , DZEROU , CAP AU , CAPLU . 

1 MU , NUSP IN,DEL,BETAL,REL,DZ EROL »capal»capll 

LEVELS=READl+0. 1 

READ (9,902) (DEGEN(M) , TERM ( M ) , WE ( M ) ,WEXE(M) , WE YE ( M ) ,WEZE(M),BE(M) 

1 .ALPHA(M) ,M=1, LEVELS) 

GO TO 50 

C THE CONSTANTS FOR THIS BAND SYSTEM ARE TO BE INPUT ON CARDS. 

40 READt 5,5 00) READ1 .ALTNAT, DEU, BETAU, REU, DZEROU, CAPAU, CAPLU 
READ( 6,500) MU , NUSP I N .DEL , BETAL ,REL .DZEROL ,CAPAL .CAPLL 
LEVELS=RE AD 1+0*1 

READ (5,500) ( DEGEN ( M ) .TERM ( M ) ,WE ( M ) , WE XE ( M ) , WE Y E ( M ) ,WEZE(M) , 

1 BE { M ) ,ALPHA(M) »M=1» LEVELS) 

NF1LE= 0 

C STORE UPPER AND LOWER STATE SPECTROSCOPIC CONSTANTS FOR THIS SYSTEM. 

50 ALPHAU=ALPHA( 1 ) 

ALPHAL=ALPHA(2) 

BEU=BE ( 1 ) 

8EL=BE ( 2 ) 

DEGEN U=DEGEN(li 
TERMU=TERM< 1 ) 

TERML=TERM( 2 ) 

WEU=WE ( 1 ) 

WEL=WE ( 2 ) 

WEXEU=WEXE ( 1 ) 

WEXEL«WEXE(2) 

WEYEU*WEYE( 1 ) 

WEYEL=WEYE ( 2 > 

WEZEU=WEZE( 1 ) 

WEZEL“WEZE ( 2 ) 
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C FIND Q. THE PARTITION FUNCTION REFERENCED TO THE EQUILIBRIUM POSITION 
C OF THE GROUND STATE POTENTIAL WELL. 


Q = 0.0 

DO 70 M = l. LEVELS 
QVR = 0« 0 
QV=0.0 
EVIB1=0.0 
V = 0.0 

60 EV I B2 = WE ( M ) * ( V+0 • 5 ) -WEXE ( M ) * ( V+0 . 5 ) **2 +WEYE ( M) * { V+0 . 5 ) **3 

1 +WEZE ( M ) * ( V+0 . 5 ) *#4 

DEL TQV= EXP t “ 1 • 43879*EV IB2/TVIB) 

C COMPARE DELTA Q-V I BRAT I ONAL TO 0.1 PERCENT OF THE QV SUM TO THIS 
C POINT. 

IF < DELTQV .LE. 0.001*QV) GO TO 70 
C HAS THE VIBRATIONAL ENERGY REACHED A FICTITIOUS PEAK. 

IF (EV1B2 .LE. EVIB1) GO TO 70 
QV=QV+DELTQV 

QVR=QVR +TROT*DELTQV/ ( 1 . 43879* ( BE ( M) -ALPHA ( M) *( V+0. 5 ) ) ) 

EV I B 1=EV I B2 
V=V+1.0 
GO TO 60 

70 Q=Q +QVR*DEGEN(M)*EXP(-1.43879*TERM(M)/TELECT) 

C WRITE THE INPUT DATA FOR THE NEW SYSTEM. 

WRITE ( 6.601) READ6.PARTCC.TELECT.TVIB.TR0T 
WRITE (6.602) ALTNAT ,NUSP IN .LEVELS .MU 

ICAPLU= CAPLU+ 0.1 
ICAPLL= CAPLL+ 0.1 

WRITE(6.606)CAPAU. I CAPLU .DEU .BET AU ► DZEROU . REU , 

1 CAPAL . ICAPLL .DEL .BE TAL . DZEROL ♦ REL 

WR I TE ( 6 , 607 ) 

DO 100 M*l. LEVELS 
DUMMY ( 1 ) =8LANK 
DUMMYC2 (-BLANK 
IF (M .NE, 1) GO TO 80 
dummy ( i > = upper 

DUMMY (21= STATE 

80 IF (M .NE. 2) GO TO 90 

DUMMY! 1)= LOWER 
DUMMY! 21= STATE 
90 MDUMMY = DEGEN (M) 

100 WRITE ( 6 .603) DUMMY! 1 ) .DUMMY ( 2 ) . MDUMMY ♦ TERM ( M ) >WE( M) .WEXE (M) . 

1 WEYE(M) ,WEZE(M) »BE(M) .ALPHA ( M ) 

C IF LINES ALTERNATE IN INTENSITY. WRITE OUT RATIO OF INTENSITIES. 


IF (ALTNAT 

• EQ. 

0.0) 

GO TO 110 

DUMMY l=ODD 
IF (ALTNAT 

.EQ. 

2.0) 

DUMMY1=EVEN 


RATIO=NUSPIN/(NUSPIN+1.0> 

WR I T E ( 6 . 6 04 ) DUMMY1, RATIO 

C IS THE UPPER ELECTRONIC TERM ENERGY GREATER THAN THE LOWER ELECTRONIC 
C TERM ENERGY. IF NOT. WRITE AN ERROR MESSAGE AND OMIT THIS CASE. 

110 IF ( TERMU -LE. TERML ) GO TO 130 

C WRITE THE OUTPUT HEADING FOR VIBRATIONAL BANDS. 

WR I TE ( 6 » 605 ) 

RETURN 

c THERE IS AN ERROR IN THE BAND SYSTEM NAME. WRITE AN ERROR MESSAGE 
C AND OMIT THIS CASE. 


120 WR I TE ( 6, 700 ) READ6 

GO TO 140 

C THERE IS AN ERROR IN THE TERM ENERGIES. WRITE AN ERROR MESSAGE AND 
C OMIT THIS CASE. 

130 WR ITE(6»701) 

140 NEWCAS=. TRUE. 

RETURN 

C FORMATS FOR READ STATEMENTS. 


500 FORMAT ( 8E10.0 ) 

501 FORMAT (4E10.0.F5.0.21X.A6) 

502 FORMAT (215) 


C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT! / 102X . 12HSYST EM TOT AL . 2X . 1 PEI 0 .4 . 5A1 ) 

601 FORMAT I//63X.A6/// ,, v 

1 21X.12HTOTAL NUMBER . 1 3X , 10HELECTR0N I C , 14X . 1 1H V I BR AT IONAL , 13X , 

2 10HROTAT IONAL/ 

3 21X.12HOF MOLECULES. 3 < 1 3X » 1 1HTEMPERATURE ) / 

4 21X.7HPER CC , 3X . 3 ( 1 5X . 9HDEGR EES K)// 

5 21X.1PE10.4.1X.3! 14X .E10.4)///) 



602 FORMAT (21X.4HLINE.21X. 12HNUCLEAR SP I N , 12X , 9HNUMBER OF.15X. 

1 7HREDUCED/ 

2 21X.11HALTERNATION.14X.15HFOR HOMONUCLEAR ,9X , 

3 10HELECTR0NIC.14X.6HATOMIC/ 

A 2 1 X , 6HFACTOR , 1 9 X , 9HMOLECULES » 1 5X »6H LEVELS * 18 X » 6HWE I GHT / / 

5 23X»F2.0,24X,F3.1»21X»I2»19X»F6.4///> 

603 FORMAT! IX . 2 A6 . 2X . I 2 . 7 X , 7 1 IX. 1PE1A.7 ) ) 

60A FOR MATI//6X.10 HEINES W I TH , A6 , 8AHROTAT I ONAL QUANTUM NUMBERS ARE STR 

10NGEST . WITH THE RATIO OF WEAK TO STRONG LINES OF ,F7.3> 

60 5 FORMAT! //IX. 1 1HV 1 BRAT IONAL .3X . 7HFRANCK-, 6X. 17HTRANSI T ION MOMENT. 

1 3X » 1 5HROT AT I ONAL LINE.10X. 5H RANGE »7X . AHBAND ,9X . 

2 10HROTATIONAL.8X. 10H INTEGRATED/ 

3 IX » 1 1 HQUANTUM NO • , 3X » 6HCONDON . 7X . 1 7H AVER AGED OVER THE.3X, 

A 20HWIDTH AT HALF-HE I GHT , 5X . 7H I N L I NE . 5X . 9HOR I G I N IN. AX. 

5 15HQUANTUM NUMBERS . 3X , 9H I NTENS I T Y/ 

6 IX . 1 1HUPPER LOWER .3X «6HF ACTOR »7X . 15HELECTRONI C BAND • 5X . 

7 21HGAUSS LORENTZ VOIGT .AX.6HWIDTHS.6X .9HANGSTROMS »6X . 

8 11HMIN MAX.5X.8HW/CM2-SR) 

606 FORMAT! 1AX.AHSPIN.9X. 17 HQUANTUM NUMBER OF . 1 5X . 1 OHROT AT I ONAL » 5X ♦ 

1 10HROTATIONAL.7X.12HDISSOCIATION.5X, 

2 21HINTERNUCLEAR DISTANCE/ 

3 1 AX , 8HC0UP L I NG » 5X . 28HRESULTANT ELECTRONIC ANGULAR, AX, 

A 8 H CONST ANT » 7X » 8HC0NSTANT .9X.6HENERGY.11X.1AHAT EQUILIBRIUM/ 

5 1 AX , 8HC0NS TANT , 5X , 29HM0ME NTUM ABOUT INTERNUC. AXIS.3X, 

6 8HDE ♦ 1/CM.7X.10HBETA. 1 /CM , 7X , 1 2HDEZER0 » 1/CM.5X, 

7 1 2HP0S 1 T I ON » CM// 

8 IX » 1 1HUPPER STATE, 2X.F7.2.17X, 12, 1 8X , E 1 A. 7 , 1 X , El A. 7 . 3X , 

9 E1A.7.3X.E1A.7/ 

1 IX , 1 1 HLOWE R STATE, 2X.F7.2.17X, 12. 18X , E 1 A. 7 , IX , E 1 A. 7 » 3X » 

2 E1A.7.3X.E1A.7///) 

607 FORMAT! 12X, 10HELECTRONI C. AX, 10HELECTRONIC/ 

1 12X.10HDEGENERACY.AX.11HTERM ENERG Y , AX , 2HWE , 1 3X » AHWEXE . 1 IX , 

2 AH WE YE , 1 1 X , AHWEZE » 11X.2HBE.13X. 7H ALPHA E//1 

C FORMATS FOR ERROR STATEMENTS. 

700 FORMAT ( / / / 1 OX , 3HTHE .1X.A6.12H BAND SYSTEM.20H IS NOT ON THE TAPE.) 

701 FORMAT ( / / 1 X » 1 1 2HERROR - ELECTRONIC TERM ENERGY OF THE UPPER STATE 
IIS LESS THAN OR EQUAL TO THE TERM ENERGY OF THE LOWER STATE. ) 

C FORMATS FOR TAPE READ STATEMENTS. 

900 FORMAT ( A6 . 2 I 6 ) 

901 FORMAT ! 5E1 A, 7 ) 

902 FORMAT ( 8E1A.7 ) 

END 


SORIGIN ALPHA 

$ I BFTC HF075D 

SUBROUTINE VU VL (SKIPVV) 

C SUBROUTINE VU VL COMPUTES AND READS VIBRATIONAL BAND CONSTANTS 
C AND DETERMINES THE MAXIMUM ROTATIONAL QUANTUM NUMBER AND THE INTENSITY 
C FACTOR. 

COMMON /CP LOT /LAMM IN, LAMM AX » DEL LAM .NARRAY.CINT3 , FACTR I ( 5 ) 
COMMON/CARRAY/ I LAM! 9000), ELAM! 9000) 

COMMON/CREAD/READ1 .READ2 .READ3 . RE AD4 , READ 5 , RE AD6 

COMMON/CBAND1/ALPHAU,BEU,BETAU,CAPAU,CAPLU.DEU»DZEROU.REU,TERMU. 

1 ALPHAL,BEL,BETAL»CAPAL,CAPLL,DEL,DZEROL,REL. TERML 

COMMON /CBAND2 /WE U.WEXEU , WE YEU » WEZEU , BVU » DVU , DEGENU »MU » A.L TN AT . 

1 WEL.WEXEL.WEYEL.WEZEL.BVL.DVL, feUSPIN 

COMMON /CTEMP/TELECT ,TVI B.TROT 
COMMON /CW I DTH/WlDTHL,WI DTHV .RANGE 

COMMON /CTRAN/P ARTCC, NUB ARO ,Q , AOE , C I NT1 , C I NT2 , KM I N, KMAX 
COMMON /CEXTRA/ I NDEX.NF ILL. SYSTEM, TOTAL, OUTPUT (12) 

REAL MU ♦ KMAX2 , KMAX 1 .NUBARO .LOWER, I LAM, NAME 
DIMENSION QVVI20) 

INTEGER FLAG 

DATA UPPER/6HUPPER /, LOWER/6HLOWER / 

SKI PVV- 0.0 
A0E=2.5415785E-18 
C = 2 . 9979E+ 10 
PI=3. 1415927 

VU=READ1 
VL=READ2 
KM I N = RE AD3 
KMAX=READ4 

C TEST VIBRATIONAL QUANTUM NUMBERS TO ENSURE THAT FICTITIOUS PEAK IN 
C VIBRATIONAL TERM ENERGY HAS NOT BEEN EXCEEDED. 

C UPPER STATE. 

FLAG = 0 
WE = WEU 
WEXE = WEXEU 
WEYE = WE YEU 
WEZE * WEZEU 
MV = VU + 1.1 
GO TO 10 
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C LOWER STATE. 

5 WE = WEL 

WEXE = WEXEL 
WEYE = WEYEL 
WEZE = WEZEL 
MV = VL +1.1 

10 EV1 =0.0 

FLAG = FLAG +1 
DO 20 M=1.MV 
V = M-l 

EV2 =WE* ( V+. 5 ) -WEXE*(V+.5)**2+WEYE*(V+. 51**3 +WEZ E* I V+. 5 ) **4 
IFIEV2 .LE. EV1 ) GO TO 230 
20 EV1 = EV2 

IFIFLAG.EQ.l ) GO TO 5 

C COMPUTE ROTATIONAL CONSTANTS FOR THIS BAND. 

30 BVU=BEU-ALPHAU*( VU+0.5) 

BVL=BEL-ALPHAL* I VL+0. 5 ) 

DVU=DEU+BET AU* ( VU+0 . 5 1 
DVL=DEL+8ETAL*(VL+0.5) 

C READ VIBRATIONAL BAND CONSTANTS. 

READ! 5.500) SUMRE2 * W I DTHG .W I DTHL . NUBARO * FRANCK . RANGE 

C IF A FRANCK-CONDON FACTOR WAS READ. CONTINUE WITH 

C THE SOLUTION. IF ONE WAS NOT READ AND THE MOLECULAR AND SPECTROSCOPIC 
C CONSTANTS WERE NOT READ FROM TAPE, THEN THE SOLUTION CANNOT PROCEED. 

IF (FRANCK .GT. 0.0! GO TO AO 
IF (NF1LE .EQ. 0) GO TO 240 

C READ FRANCK-CONDON FACTORS FROM TAPE USING THE WEZE ARRAY FOR 
C TEMPORARY STORAGE. 

CALL SK I P (-0 ,9 1 

READ ( 9 , 900 ) N AME , I NDEX , NF I LE 

N1 = VU+ 1.1 

N2 = VL + 1. 1 

READ (9,901) ( (QVVIM2! ,M2=1 ,20 ) . Ml= 1 . N1 ) 

FRANC K=QVV ( N2 ) 

C RANGE IS THE DISTANCE FROM THE LINE CENTER, IN LINE WIDTHS, BEYOND 
C WHICH THE SPONTANEOUS LINE EMISSION IS CONSIDERED ZERO. 

40 I F ( RANGE .NE. 0.0) GO TO 45 
RANGE = 5*0 

IF ( W I DTHL .EQ. 0.01 RANGE = 3 • 0 

C FIND THE VOIGT LINE WIDTH AT HALF-HEIGHT. IF LINE WIDTHS WERE NOT INPUT 

C IMPOSE A GAUSSIAN PROFILE WITH A WIDTH TEN TIMES DELLAM. 

45 WIDTHV=W IDTHL/2.0+SQRT ( W I DTHL**2/4 . 0+W I DTHG**2 ) 

IF (WIDTHV .NE. 0.0) GO TO 50 
WIDTHV=10.0*DELLAM 
W I DTHG=W I DTHV 
WR I TE ( 6 , 70 1 ) 

C FIND KMAX , THE MAXIMUM ROTATIONAL QUANTUM NUMBER POSSIBLE FOR THE 
C SPECIFIED VIBRATIONAL LEVELS. KMAX VALUES ARE FOUND FOR BOTH THE 
C UPPER AND LOWER STATES. HOWEVER. VALUE OF THE KMAX USED BY THE PROGRAM 
C IS THE MINIMUM OF THESE AND THE INPUT VALUE IF IT IS NOT ZERO. IF THE 
C DISSOCIATION ENERGY IS NOT INPUT, KMAX CANNOT BE DETERMINED AND IS SET TO 
C THE INPUT VALUE OR 150 IF THE INPUT VALUE IS ZERO. 

C SEE HERZ8ERG , PAGE 426, FOR A DISCUSSION OF DISSOCIATION DUE TO ROTATION. 

C SET UP CONSTANTS TO FIND KMAX FOR LOWER STATE. 

50 IF (DZEROL .EQ. 0.0) GO TO 60 

DEQUI L=DZEROL +WEL/2.0 -WEXEL/4.0 +WEYEL/8.0 +WEZEL/16.0 
EVIB=WEL*( VL+0.5 ) -WEXEL* ( VL+0 • 5 ) **2 +WEYEL* ( VL+0. 5 ) **3 
1 +WEZEL* (VL+0.5)**4 

C 1 = 1 . 2 177E7*WE L*SQRT ( MU /DEQU I L ) 

REQUI L=REL 
DV=DVL 
BV=BVL 
GO TO 70 

C SET UP CONSTANTS TO FIND KMAX FOR UPPER STATE. 

60 IF (DZEROU .EQ. 0.0) GO TO 170 

DEQUI L=DZEROU +WEU/2.0 -WEXEU/4.0 +WEYEU/8.0 +WE2EU/16.0 
EVIS=WEU*( VU+0.5 ) -WEXEU* ( VU+0 .51**2 +WE YEU* 1 VU+0 . 5 ) ** 3 
1 +WEZEU* (VU+0.5)**4 

0 = 1.2 1 77 E7*WEU*SQRT ( MU /DEQU I L ) 

REQUI L=REU 

DV=DVU 

BV=BVU 

C IF VIBRATIONAL ENERGY IS GREATER THAN OR EQUAL TO THE DISSOCIATION 
C ENERGY, THIS BAND CANNOT EXIST. 

70 IF (EVIB .GE. DEQUIL) GO TO 220 



C SET THE INITIAL VALUES NEEDED TO START THE ITERATION 


C 

C 

C 

C 

c 

c 

c 

c 


KMAX1= PRIOR VALUE OF KMAX 
KMAX2= PRESENT VALUE OF KMAX 

KMAX3= INTEGER VALUE OF NEXT KMAX 

K= INTEGER VALUE OF KMAX2 

El AND E2= PRIOR AND PRESENT SUMS OF VIBRATIONAL 

U1 AND U2= PRIOR AND PRESENT VALUES OF EFFECTIVE 
LOCAL MAXIMUM. 

FLAG= 1 INDICATES THIS IS THE FIRST ITERATION. 


PLUS ROTATIONAL ENERGY. 
POTENTIAL ENERGY AT THE 


C3 = l .686E-15/MU 
E 1 = EV I B 
Ul^DEQU I L 
KMAX1=0.0 
K= 50 
KMAX2=K 
F LAG= 1 

C FIND R, THE INTERNUCLEAR DISTANCE AT THE LOCAL MAXIMUM OF THE 
C EFFECTIVE POTENTIAL WELL FOR KMAX2 • A MORSE CURVE IS ASSUMED 
C FOR THE POTENTIAL WELL WITHOUT ROTATION. 


80 R=REQUIL 

FR2 = 0 .0 

FK = C 3*1 • OE+24* KMAX2* ( KMAX2+1 . 0 ) / (C1*DEGUI L ) 

90 FR1=FR2 

R=R+0. IE-8 

IF (R .GT. 1.0E-7) GO TO 120 

C2=EXP(-C1*(R-REQUIL> ) 

FR2= ( R *1.0E+8)**3*C2*< 1.0-C2) 

IF ( FR2 .GT. FR1 ) GO TO 90 
IF ( FR2 .GT. FK) GO TO 90 
IF (FR1 .EQ. FR2 ) GO TO 100 
IF (FR1 .GT. FK) GO TO 110 

C A LOCAL MAXIMUM DOES NOT EXIST AT K. 

C SET R TO PRIOR VALUE AND CONTINUE ITERATION. 

R= R-0.1E-8 
GO TO 120 

C THE LOCAL MAXIMUM AT K IS. IN FACT. A CRITICAL POINT. 

C SET R TO CRITICAL POINT AND CONTINUE ITERATION. 

100 R=R- 0.05E-8 
GO TO 120 

C INTERPOLATE TO GET VALUE OF R AT LOCAL MAXIMUM. 

110 R=R- 0.1E-8*(FK-FR2)/(FR1-FR2> 

C FIND THE NEXT VALUE OF KMAX (I.E.» KAMX3 ) . DURING THE FIRST ITERATION 
C STEP KMAX2 BY 20 UNTIL U2 IS LESS THAN OR EQUAL TO E2 AND THEN 
C INTERPOLATE TO U=E TO GET KMAX3. IN ALL OTHER ITERATIONS. JUST 
C EXTRAPOLATE TO U=E TO GET KMAX3. 

120 E2=EV IB +BV*KM AX2* ( KM AX 2+1 • 0 ) -DV*KMAX 2**2* ( KMAX2+1. 01**2 

U2=DEQU I L*t l.O-EXP ( -C 1* ( R-REQUI L ) ) )**2 +C3*KMAX2* ( KMAX 2+ 1 . 0 ) /R**2 

IF1FLAG .NE. 1) GO TO 140 
I F ( U2 .LE. E2 ) GO TO 130 
KMAX 1 = KMAX2 
KMAX2= KMAX2+ 20.0 
K= KMAX2+ 0.1 

I F ( KMAX2 .GE. 500.0) GO TO 150 

El= E 2 
Ul= U2 
GO TO 120 

130 FL AG= 2 

140 KMAX3=KMAX2 + ( U2- E2 ) * ( KMAX2-KMAX 1 ) / ( ( Ul-El ) - 1 U2-E2 > ) 

C IF KMAX3 IS LESS THAN OR EQUAL TO ZERO. THIS VIBRATIONAL LEVEL 
C CANNOT EXIST. 

IF ( KMAX 3 .LE. 0) GO TO 260 

C WHEN KMAX3 EQUALS K* THE ITERATION IS COMPLETE. 

IF (KMAX3 .EQ. K) GO TO 160 

K=KMAX3 

KMAX 1 =KMAX2 

KMAX2=KMAX3 

E1 = E2 

U 1 =U2 

GO TO 80 


150 KMAX3= KMAX2+ 0.1 

C THE ITERATION IS COMPLETE, SET KMAX. 


160 

IF 

(KMAX .EQ. 

0 ) 

KMAX=KMAX3 


IF 

( KMAX 3 .LT. 

. KMAX) KMAX=KMAX3 


IF 

(BV .EQ. BVL) 

GO TO 60 

170 

IF 

(KMAX .EQ. 

0 ) 

KMAX= 150 



C SET UP CONSTANTS FOR INTENSITY EQUATION IN ROTATIONAL STRUCTURE 
C SUBROUTINE AND COMPUTE NUBARO, THE BAND ORIGIN, IF NOT SPECIFIED. 

Cl NT 1«TERMU/T ELECT + ( WEU* ( VU+O . 5 I -WEXEU* ( VU+0 . 5 ) **2+WEYEU* 

1 (VU+O. 5 ) **3+WEZEU*(VU+0.5 )**4) ZTVI B 

CINT2M 16.0E-7*C*PARTCC*FRANCK*SUMRE2*PI**3)/(3.0*Q) 

IF (NUBARO .EQ. O.O) NUBARO = TERMU — TERML +WEU* < VU+O . 5 > -WEXEU* 

1 ( VU+O . 5 ) *#2 +WEYEU* ( VU+O • 5 ) **3 

2 +WEZEU*(VU+0.5)**4 -WEL* I VL+O .5 I 

3 +WEXEL*(VL+0.5>**2 -WEYEL*( VL+0.5)**3 

4 -WEZEL*< VL+O. 5>**4 
OR IGIN-1.0E+8/NUBARO 

C FIND THE INTENSITY FACTOR, IF NECESSARY. 

I FACTR= 0.62486*CINT1 
I F ( I FACTR .LT. 30) GO TO 210 
C I NT4= I FACTR 

I F ( C I NT4 .LT. CINT3) GO TO 210 

FACTR I ( 1 )=OUTPUT ( 12 ) 

M=IFACTR/1000 
DO 180 Ml=2 ,5 

FACTR! (M1)=0UTPUT(M+1) 

I FACTR = I FACTR-M*10** ( 5— M 1 ) 

180 M= IFACTR/10**< 4-MI ) 

C IF THIS IS NOT THE FIRST INTENSITY FACTOR. ADJUST THE ELAM ARRAY. 

I F t C 1 NT3 .EQ. 0.0) GO TO 200 
CINT5= CINT4-CINT3 
DO 190 M*1 .NARRAY 

190 EL AM ( M ) = ELAM ( M ) *EXP ( 2 • 30 259*C I NT 5 ) 

SYSTEM= SYSTEM*EXP( 2. 30259*C I NT 5 ) 

TOTAL= TOTAL*EXP (2.30259*CINT5) 

200 Cl NT3= CINT4 

C WRITE THE VIBRATIONAL BAND INFORMATION, 

210 Ml -VU+ 0.1 
M2=VL+ 0.1 
IRANGE= RANGE+ 0.1 
IFIKMIN .LT. 2) KMIN= 2 

WRITE(6,600)M1,M2,FRANCK,SUMRE2»WI DTHG »WIDTHL»WI DTHV , I RANGE , 

1 ORIGIN, KMIN, KM AX 

IF (CINT2 .LE. 0.0) GO TO 250 
RETURN 

C THIS VIBRATIONAL LEVEL CANNOT EXIST. WRITE THE APPROPRIATE MESSAGE 
C AND OMIT THIS BAND. 

220 M1=VU+ 0.1 
M2=VL+ 0.1 
DUMMY=UPPER 

IF ( 8 V .EQ. BVLl DUMMY=LOWER 
WR I TE ( 6 , 702 ) Ml, M2, DUMMY 
SKIPVV= 1.0 
RETURN 

230 M 1 =VU+ 0.1 
M2=VL+ 0.1 
DUMMY=UPPER 

I F ( WE .EQ. WEL) DUMMY=LOWER 
WR I TE I 6 » 705 ) Ml. M2, DUMMY 

RE AD ( 5,500) SUMRE2, W I DTHG, W I DTHL, NUBARO, FRANCK, RANGE 

SK I PV V= 1.0 

RETURN 

C THERE IS AN ERROR IN THE FRANCK-CONDON FACTOR. WRITE AN ERROR MESSAGE 
C AND OMIT THIS BAND. 

240 Ml= VU+ 0.1 
M2 = VL+ 0.1 
WR I TE ( 6 » 703 ) Ml. M2 
SKI PVV= 1.0 
RETURN 

C THE BAND INTENSITY IS ZERO DUE TO A POSSIBLE ERROR IN PARTCC, FRANCK, 
C OR Q. WRITE THE APPROPRIATE MESSAGE AND OMIT THIS BAND. 

250 WR I TE ( 6 , 700 ) 

SK I PVV= 1.0 
RETURN 

C THE MAX POSSIBLE ROTATIONAL QUANTUM NUMBER IS LESS THAN OR EQUAL 
C TO ZERO. WRITE THE APPROPRIATE MESSAGE AND OMIT THIS BAND. 

260 Ml = VU+ 0.1 
M2 = VL+ 0.1 
WRITE(6»704) Ml, M2 
SKI PVV= 1.0 
RETURN 

C FORMAT FOR READ STATEMENT. 


SUMRE2 , 



500 


FORMAT ( 6 E 10 • 0 ) 


C FORMAT FOR WRITE STATEMENT. 

600 FORMAT ( /1X,I2,4X»I2»6X,1PE10.4,3X,E10.4»9X,3(OPF7.4,1X) ’ 3X , 14, 

1 7X,F9.3,5X,I4,5X.I4//) 

C FORMATS FOR ERROR STATEMENTS. 

700 F ORMAT (/2X.130HINTENSITY FOR THIS BAND IS LESS THAN OR EQUAL TO ZE 
1R0 DUE TO THE INPUT DATA VALUES* THEREFORE IT WAS OMITTED FROM THE 

2 COMPUTATION.) 

701 FORMAT (/8X.117HLINE WIDTHS WERE NOT INPUT FOR NEXT BAND. PROGRAM I' 
IMPOSED A GAUSSIAN PROFILE WITH WIDTH AT HALF-HEIGHT = 10*INT£RVAL. 
2 ) 

702 FORMAT ( / /6X . 4HTHE ,I2,3H , .I2.84H TRANSITION WAS OMITTED FROM THE 
1 CALCULATION BECAUSE THE VIBRATIONAL ENERGY FOR THE » A6 » 14HSTATE E 
2XCEEDED/ 

3 6X.23HITS DISSOCIATION ENERGY) 

703 FORMAT (// /10X .41HNO FRANCK-CONDON FACTOR WAS INPUT FOR THE. 12. 

1 3H , ,12. 6H BAND. ) 

704 FORMAT ( /6X.4HTHE .12, 3H , .I2.95H TRANSITION WAS OMITTED BECAUSE T 
1HE MAX POSSIBLE ROT QUANTUM NUMBER IS LESS THAN OR EQUAL TO 0.//) 

705 FORMAT ( / / 6X » 4HTHE .I2.3H , .I2.92H TRANSITION WAS OMITTED FROM THE 
1 CALCULATION BECAUSE THE VIBRATIONAL QUANTUM NUMBER FOR THE >A6, 
25HSTATE/6X.65HEXCEEDS THE FICTITIOUS PEAK ON THE VIBRATIONAL TE ,V; 

3 ENERGY CURVE.) 

C FORMATS FOR THE TAPE STATEMENTS. 

900 FORMAT! A6, 216) 

901 F ORMAT ( 5 E 1 4 . 7 I 


END 


SORIGIN ALPHA 

$ I BFTC HF075E 


SUBROUTINE ZERO 

C SUBROUTINE ZERO COMPUTES PARALLEL TRANSITIONS FOR DIATOMIC MOLECULES. 

COMMON /C PLOT /LAMM I N . LAMM AX .DELL AM « N ARRAY .CINT3.FACTRI 1 5) 
COMMON/CARRAY/ I LAM! 9000), ELAM! 9000) 

COMMON /CRE AD/RE ADI .READ2 , READ3 , READ4 » READ 5 .READ6 

COMMON/CBANDl/ALPHAU.BEU.BETAU.CAPAU.CAPLU.DEU.DZEROU.REU.TERMU, 

1 ALPHAL , BEL » BET AL.CAPAL.CAPLL.DEL, DZEROL .REL.TERML 

COMMON /C BAND2 / WE U, W EX EU, WE YEU.WEZEU.BVU.DVU, DEGENU, MU, ALTN AT , 

1 WEL,WEXEL,WEYEL,WEZEL,BVL,DVL, NUSPIN 

COMMON/CTEMP/TELECT ,TVIB,TROT 
COMMON/CWIDTH/WIDTHL.WIDTHV, RANGE 

COMMON/ CTRAN/P ARTCC .NUBARO ,Q,A0E ,CI NT1 , C I NT2 , KM I N , KMAX 
COMMON/CEXTRA/INDEX.NFILE, SYSTEM, TOTAL, OUTPUT ( 12) 

REAL I LAM, KU, KL, L AMCL .LAMBDA .LAMMAX, LAMM IN, NUB AR, NUBARO .NUSPIN 

C FIND THE NUMBER OF ENTRIES IN THE INTENSITY ARRAY, FROM THE LINE CENTER, 
C AT WHICH EACH LINE IS ASSUMED TO HAVE A CONTRIBUTION. 

NSPRED= 1 • 1 + RANGE*WIDT HV/DE LL AM 

C SET CONSTANTS WHICH DETERMINE THE LINE SHAPE. 


CSPRD2=WIDTHL/WIDTHV 

CSPRD3= t 1 .06 5+0 . 447*CSPRD2 +0 . 058*CSPRD2**2 ) *W I DTHV* 1 . 0 E-4 

C SPRD 1 = f 1 .0-CSPRD2 ) /CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

C SET CONSTANTS WHICH DETERMINE THE WAVELENGTH OF THE LINE CENTER FOR 
C TRIPLETS. SEE HERZBERG, PAGE 235. 


YU=CAPAU/BVU 
YL=CAPAL/BVL 
DI VI SR=2.0 

IF (CAPLU .EQ. 0.0) DIVISR=1.0 


C SET CONSTANTS FOR THE P BRANCH AND INITIALIZE THE RUNNING SUMS. 


CSTR=1 .0 
KU=KMIN 
KL = KU+ 1.0 
BAND=0.0 


10 BRANCH=0.0 

C COMPUTE AND DISTRIBUTE THE INTEGRATED INTENSITY DUE TO SPONTANEOUS 
C EMISSION OF ALL SPECIFIED ROTATIONAL LINES. 

DO 60 M=KMI N . KMAX 
Z2U=0.0 
Z2L=0 • 0 

C FOR A DESCRIPTION OF THESE EQUATIONS, SEE HERZBERG, PAGE 235. 

IF ( DEGENU/DI V I SR .NE. 3.0) GO TO 20 

Z1U=CAPLU**2*YU*(YU-4.0)+(4.0/3.0) + 4.0*KU*!KU+1.0) 
Z1L=CAPLL**2*YL*( YL-4.0 ) + ( 4.0/3, 0 )+4.0*KL* ! KL + 1 .0 ) 

Z2U=( CAPLU** 2* YU* 1YU-1.0>-(4.0/9.0) -2.0*KU* ( KU+1 .0 ) )/!3.0*ZlU) 

Z2L=(CAPLL**2*YL*(YL-1.0)~(4.0/9.0)-2.0*KL*(KL+1.0))/!3.0*Z1L) 


35 



C COMPUTE THE WAVELENGTH OF THE LINE CENTER IN ANGSTROMS. 

20 NUB AR=NUBAR0 + BVU* ( KU* (KU+1 .0 ) +4.0*Z 2U ) -BVL* ( KL* ( KL+1 .0 ) +4.0* 

1 Z2L) -DVU*( KU+0«5 ) **4 +DVL* < KL+0 . 5 ) **4 

LAMCL=1 .0E+8/NUBAR 

C IF THE LINE WAVELENGTH FALLS OUTSIDE THE SPECTRAL RANGE OF 
C INTEREST. OMIT IT AND PROCEED TO THE NEXT LINE. 

IFILAMCL.LT. LAMMIN-RANGE*WIDTHV) GO TO 50 
I F ( LAMCL «GT . LAMMAX+RANGE*W I DTHV ) GO TO 50 

C FIND THE STRENGTH FACTOR. 

S=KU+CSTR 

C DETERMINE IF LINES ALTERNATE IN INTENSITY. 

FACTOR=1.0 

IF (ALTNAT .EQ. 0.0) GO TO 30 

C EVALUATE THE ALTERNATION FACTOR FOR HOMONUCLEAR MOLECULES. THE 
C EXPONENT IN THE ALTERNATING FUNCTION IS FOUND SEPARATELY TO ENSURE 
C THAT IT IS AN INTEGER BEFORE RAISING (-1.01 TO A POWER. 

KEXP= KL + ALTNAT + 0.1 

FACTOR = 1.0 +(-1.0>**KEXP/( 2.0*NUSPIN+1 .0) 

C FIND THE INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION. 

30 E*FACTOR*S*(NUBAR**2*AOE)**2*CINT2*EXP(-1.43879*(CINT1 

1 + ( BVU*KU* ( KU+ 1.0) )/TROT)+2.30259*CINT3l 

C SET CONSTANTS USED TO DISTRIBUTE THE ROTATIONAL LINE. 

NCENTR=1.5+( LAMCL-LAMMIN1/DELLAM 

NSTART=NCENTR-NSPRED 

IF ( NST ART .LT. 1) NSTART = 1 

NFND=NCENTR +NSPRED 

IF (NEND .GT. NARRAY) NEND=NARRAY 

C DISTRIBUTE THE ROTATIONAL LINE. 

DO 40 M1=NSTART.NEND 
C0UNT=M1 

L AMBDA=LAMM I N+ ( COUNT-1 .0 > *DELLAM 
CSPRD3= ABS ( ( LAMBDA-LAMCL l/WIDTHV) 

40 ELAM (Ml) =EL AM ( Ml ) + E* ( CSPRD1*EXP ( -2 . 772*CSPRD3**2 1 

1 +CSPRD2/ ( 1 .0+4.0*CSPRD3**2) +0.016* CSPRD2*(1.0- 

2 WIDTHL/WI DTHV )*(EXP(-0.4*CSPRD3**2.25) -10.0/ 

3 (10.0+CSPRD3**2.25) ) ) 

BRANCH* BRANCH + E 
50 KU=KU+ 1.0 

60 KL=KL+ 1 • 0 

C HAVE BOTH BRANCHES BEEN COMPLETED. 

IF (KL .EQ. KU-l.OI GO TO 70 

C WRITE P BRANCH DATA. 

WRITE (6. 600) BRANCH. (FACTR KM) »M=1,5) 

BAND* BRANCH 
SY5TEM=SY ST EM+B RANCH 

C SET CONSTANTS FOR THE R BRANCH. 

CSTR=0.0 
KU=KM I N 
KL=KU-1. 0 
GO TO 10 

C WRITE R BRANCH DATA. 

70 WR I TE (6 .601 ) BRANCH. ( FACTR I ( M) .M=l .5 ) 

B AND* B AN D+B RANCH 
SYSTEM=SYSTEM+BRANCH 

C COMPUTE APPROXIMATE BAND INTENSITY. SEE BATES. PAGE 57. 

QR = TROT / ( 1 . 438 79*BVU ) 

APPROX = C INT2*QR*( NUBAR0**2*A0E ) **2*EXP( — 1 . 43879*C I NT 1 + 

1 2 • 30259*C INT 3 ) 


C WRITE ADDITIONAL DATA FOR THIS VIBRATIONAL BAND. 

WRITE (6.602 ) BAND . ( FACTR I ( M ) ,M=1.5 ) .APPROX, ( FACTR I ( M ) . M= 1.5) 
RETURN 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT (107X.8HP BRANCH , IX , 1PE1 0 .4 , 5A1 ) 

601 FORMAT! 107X8HR BRANCH , 1 X , 1 PE 10 . 4 , 5A1 ) 

602 FORMAT ( / 105X.10HBAND TOTAL » 1 X » 1PE 10 . 4 , 5A 1 / 

1 93X . 2 2H APPRO X I MATE BAND TOTAL , 1 X .El 0 .4 . 5A 1 / / ) 


END 



$ OR I G I N 
$ I BFTC HF075F 


ALPHA 


SUBROUTINE ONE 

C SUBROUTINE ONE COMPUTES PERPENDICULAR TRANSITIONS FOR DIATOMIC 
C MOLECULES. 


COMMON /CPLOT/ LAMM I N, L AMMAX »DELLAM,NARR AY » Cl NT 3 . FACTR I (5) 

COMMON /CARR AY / I LAM ( 9000),ELAM( 9000) 

COMMON /CRE AD /READ1. RE AD2 »READ3 . READ4 , READ 5 , READ6 

COMMON/CBANDl/ALPHAU.BEU, BET AU.CAPAU, CAPLU, DEU.DZEROU.REU.TERMU, 

1 ALP HAL ,BEL,BETAL»CAPAL»CAPLL»DEL, DZEROL »REL»TERML 

COMMON / CBAND2 / WEU » WEX EU, WE YEU.WEZEU.BVU.DVU, DEGENU. MU .ALTNAT . 

1 WEL .WEXEL.WEYEL.WEZEL. BVL . DVL . NUSPIN 

COMMON/CTEMP/TELECT .TVIB.TROT 
COMMON/CW IDTH/Wl DTHL.WIDTHV, RANGE 

COMMON/ C T RAN /P ART CC .NUBARO.Q.AOE.CINT1.CINT2 » KM I N» KMAX 
COMMON /CEXTRA/ INDEX. NF I LE .SYSTEM, TOTAL .OUTPUT ( 12 ) 


REAL I LAM » KU , KL » LAMCL, LAMBDA, L AMMAX, LAMM IN, NUB AR.NUBARO, NUSPIN 

INTEGER SWITCH 


C FIND THE NUMBER OF ENTRIES IN THE INTENSITY ARRAY, FROM THE LINE CENTER, 
C AT WHICH EACH LINE IS ASSUMED TO HAVE A CONTRIBUTION. 

NSPRED=1» 1+RANGE* WI DTHV/DELL AM 

C SET CONSTANTS WHICH DETERMINE THE LINE SHAPE. 

CSPRD2=W IDTHL/W I DTHV 

CSPRD3= ( 1 . 065+0. 447*CSPRD2+0. 05 8«CSPRD2**2 ) *W I DTHV*1 . 0 E-4 

CSPRD 1= ( 1 .0—CSPRD2 ) /CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

C SET THE SIGN OF CAPLU, USED IN STRENGTH EQUATIONS, APPROPRIATE TO THE 
C SIGN OF DELTA LAMBDA. SEE JOHNSON, PAGE 150. 

S I GN= 1.0 

IF (CAPLU .LT. CAPLL ) SIGN=-1.0 

C SET CONSTANTS FOR THE P BRANCH AND INITIALIZE THE RUNNING SUMS. 

SWITCH* 1 
KU=KMIN 
KL=KU+1.0 
BAND « 0.0 
10 BRANCH'0.0 

C COMPUTE AND DISTRIBUTE THE INTEGRATED INTENSITY DUE TO SPONTANEOUS 
C EMISSION OF ALL SPECIFIED ROTATIONAL LINES. 

DO 90 M = KM IN, KMAX 

C COMPUTE THE WAVELENGTH OF THE LINE CENTER IN ANG5TR0MS. 

NUBAR=NUBARO +BVU*KU* < KU+1 .0 ) -B VL*KL* ( KL+1 . 0 ) -DVU*KU**2* 

1 ( KU+1 • 0 ) **2 +DVL*KL**2*(KL+1.0)**2 

LAMCL=1.0E+8/NUBAR 

C IF THE LINE WAVELENGTH FALLS OUTSIDE THE SPECTRAL RANGE OF 
C INTEREST, OMIT IT AND PROCEED TO THE NEXT LINE. 

IFILAMCL.LT. LAMMI N-RANGE*WIDTHV) GO TO 80 
I F ( LAMCL. GT . LAMMAX+RANGE*W I DTHV ) GO TO 80 

C FIND THE STRENGTH FACTOR. 

GO TO (20,30, AO), SWITCH 

C P BRANCH STRENGTH FACTOR 

20 s=(KU + 1.0-S I GN*C APLU ) * ( KU+2 . 0 — 5 1 GN*CAPLU I / ( 2 . 0* ( KU+1 .0 ) ) 

GO TO 50 

C Q BRANCH STRENGTH FACTOR. 

30 S= ( KU+5IGN*CAPLU ) * ( 2 . 0*KU+ 1 • 0 I * ( KU + 1 .0-5 1 GN*CAPLU ) / 

1 ( 2 • 0*KU* ( KU+ 1 • 0 ) ) 

GO TO 50 

C R BRANCH STRENGTH FACTOR. 

40 S=IKU+SIGN*CAPLU)*(KU-1.0+SIGN*CAPLU)/<2.0*KU) 

C DETERMINE IF LINES ALTERNATE IN INTENSITY. 

50 FAC TOR = 1 • 0 

IF (ALTNAT .EQ. 0.0) GO TO 60 

C EVALUATE THE ALTERNATION FACTOR FOR HOMONUCLEAR MOLECULES. THE 
C EXPONENT IN THE ALTERNATING FUNCTION IS FOUND SEPARATELY TO ENSURE 
C THAT IT IS AN INTEGER BEFORE RAISING (-1.0) TO A POWER. 

KEXP« KL + ALTNAT + 0.1 

FACTOR =1.0 +(-1.0) **KEXP / ( 2 • 0*NUSP I N+l • 0 ) 



C FIND THE INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION 


60 E=FACT0R*S*(NUBAR**2*A0E)**2*CINT2*EXP(-1.43879*(CINT1 

1 +( BVU*KU*( KU+1.0) ) /TROT >+2.302 59+C I NT3 ) 

C SET CONSTANTS USED TO DISTRIBUTE THE ROTATIONAL LINE. 

NCENTR=1.5+(LAMCL-LAMMIN) /DELLAM 

NSTART=NCENTR-NSPRED 

IF ( NST ART .LT. 1) NSTART = 1 

NEND=NCENTR +NSPRED 

IF (NEND .GT. NARRAY) NEND=NARR AY 

C DISTRIBUTE THE ROTATIONAL LINE. 

DO 70 M1=NSTART ,NEND 
COUNT =M1 

LAMBDA=LAMM I N+( COUNT-1 .0 ) *DELLAM 
CSPRD3=ABS( ( LAMBDA-LAMCL ) /WlDTHV) 

ELAM (Ml) =ELAM( Ml ) + E* ( CSPRD1 *EXP i -2 . 772*CSPRD3**2 ) 

+CSPRD2 / ( 1.0+4.0*CSPRD3**2) +0.016* CSPRD2*(1.0- 

WIDTHL/WIDT HV ) * I EXP t -0 • 4*CSPRD3**2 .25 I -10.0/ 

( 10. 0+CSPRD3*+2 .25) ) ) 

BRANCH* BRANCH + E 
80 KU= KU+1.0 

90 KL=KL+1 .0 

BAND=BAND+BRANCH 
S YSTEM=SYSTEM+BRANCH 

C HAVE ALL THREE BRANCHES BEEN COMPLETED. 

GO TO (100,110.120) .SWITCH 

C OUTPUT P BRANCH INTEGRATED INTENSITY. 

100 WR I T E ( 6 .600 ) BR ANCH , ( FACTR I < M ) , M= 1 , 5 ) 

C SET CONSTANTS FOR 0 BRANCH. 

SWITCH* 2 
KU*KMI N 
KL =K(J 
GO TO 10 

C OUTPUT Q BRANCH INTEGRATED INTENSITY. 

110 WR I TE (6.601) BRANCH, ( FACTRI (Ml ,M=1 ,5) 

C SET CONSTANTS FOR R BRANCH. 

SWITCH* 3 
KU=KMIN 
KL=KU— 1.0 
GO TO 10 

C OUTPUT R BRANCH INTEGRATED INTENSITY. 

120 WR I TE ( 6 » 602 ) BRANCH ,( FACTR I ( M ) ,M=1 , 5 ) 

C COMPUTE APPROXIMATE BAND INTENSITY. SEE BATES. PAGE 57. 
QR=TROT/ ( 1.43879*BVU) 

APPROX = CINT2*QR*( NU8AR0**2*A0E ) **2*EXP ( - 1 .43879*C I NT 1 + 

1 2.30259*0 NT 3) 

WR I TE ( 6,6 03 ) BAND, ( FACTRI ( M ) ,M= 1 ,5 ) .APPROX, (FACTRI ( M ) ,M=1 , 5 ) 
RETURN 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT! 107X.8HP BRANCH , IX , 1 PE 1 0 • 4 , 5 A1 ) 

601 FORMAT ( 107X ,8H0 BR ANCH , 1 X , 1 P E 1 0 . 4 , 5 A 1 ) 

602 FORMAT ( 107X ,8HR BRANCH , 1 X , IP E 1 0 • 4 , 5A1 ) 

603 FORMAT!/ 105X.10HBAND TOTAL , 1 X , 1PE 10 . 4 , 5A1 / 

1 93X.22HAPPR0XI MATE BAND TOT AL , 1 X , E 1 0 . 4 , 5 A 1 / / ) 

END 



S0RIG1N ALPHA 

SIBFTC HF075G 

SUBROUTINE S2 PI2 

C SUBROUTINE S2 PI2 COMPUTES DOUBLET SIGMA TO DOUBLET PI TRANSITIONS (OR 
C VICE VERSA) FOR DIATOMIC MOLECULES. 

COMMON /CPLOT /L AMM I N , LAMM AX , DELL AM, NARRAY.CINT3, FACTRI ( 5 I 
COMMON/CARRAY/ ILAM( 9000), ELAM! 9000) 

COMMON /CRE AD/RE ADI, RE AD2 ,READ3,READ4, READ 5, RE AD6 

COMMON /CBAND1/ ALP HAU.BEU, BE T AU, C Ap AU, CA PLU, DEU, DZEROU, RE U, TERMU, 

1 ALPHAL,BEL,BETAL»CAPAL,CAPLL,DEL,DZEROL,REL,TERML 

COMMON /CBAND2/WEU,WEXEU,WEYEU,WEZEU,BVU,DVU, DEGENU, MU, ALTN AT . 

1 WEL.WEXEL.WEYEL.WEZEL. BVL , DVL , NUSPIN 

COMMON/CTEMP/TELECT,TVIB,TROT 
COMMON/C W I DTH/W I DTHL, WlDTHV, RANGE 

COMMON/C TRAN /PARTCC ,NUBARO ,Q , AOE , C I NT 1 , C I NT2 ,KM I N, KMAX 
COMMON/CEXTRA/INDEX,NFILE,SYSTEM,TOTAL,OUTPUT( 12) 


38 



DIMENSION NAME! 16,2) 

REAL ILAM , J .JL.JU.K.LAMCL »LAMBD A , L AMMAX * LAMM I N » NUBAR » NUBARO , 
1 NUSPIN 

INTEGER SWITCH 
LOGICAL FROMP I , DBLBRN 
DATA ( (NAME (Ml, M2) ,M2=1,2),M1=1,16)/ 



PI TO SIGMA 

TRANS. 

SIGMA 

TO PI 

TRAN5 

• 

1 

6H 

,6H 

P2 , 

6H 

,6H 

R2 


2 

6H 

♦ 6H 

R1 , 

6H 

,6H 

PI 


3 

6H 

. 6H 

SR21 , 

6H 

♦ 6H 

SR2 1 


4 

6H 

»6H 

0P12 , 

6H 

• 6H 

OP 12 


5 

6HQ2 

AND.6H 

QP21 , 

6HQ2 

AND , 6H 

QR 12 


6 

6HQ1 

AND » 6H 

QR12 , 

6HQ1 

AND »6H 

QP21 


7 

6HR2 

AND , 6H 

RQ21 , 

6HP2 

AND »6H 

PQ12 


8 

6HP1 

AND.6H 

PQ 1 2 , 

6HR1 

AND »6H 

RQ21 

/ 


C DBLBRN IS TRUE WHEN COMPUTING TWO BRANCHES WHOSE LINES ARE ASSUMED TO 
C HAVE THE SAME WAVELENGTHS. 

DBLBRN=. FALSE. 

C ADJUST FACTOR USED IN INTENSITY EQUATION TO ACCOUNT FOR SPIN SPLITTING. 
CINT2*CINT2/2.0 

C SET CONSTANTS APPROPRIATE TO THE ELECTRONIC TRANSITION. FROMPI IS TRUE 
C IF THE UPPER STATE IS DOUBLET PI. 

FROMPI=. FALSE. 

IF (CAPLU.GT.CAPLL) FROMP I =. TRUE. 

C SET COUPLING CONSTANT, 

YU=CAPAU/BVU 
YL=CAPAL/BVL 
Y = YL 

I F ( FROMP 1 ) Y=YU 

C SET SWITCH, THE BRANCH IDENTIFIER, AND IPRINT, THE INDEX ON NAME WHICH 
C IDENTIFIES THE BRANCH OUTPUT. 

SW I T CH= 0 
I PR INT = 0 

IF (FROMPI) I PR I NT =- 1 

C FIND THE NUMBER OF ENTRIES IN THE INTENSITY ARRAY, FROM THE LINE CENTER, 
C AT WHICH EACH LINE IS ASSUMED TO HAVE A CONTRIBUTION. 

NSPRED=1.1+RANGE*WIDTHV/DELLAM 

C SEJ CONSTANTS WHICH DETERMINE THE LINE SHAPE. 

CSPRD2=WIDTHL/WIDTHV 

CSPRD3= ( 1.06 5+0 .447*CSPRD2+0.058*C5PRD2**2 >*WIDTHV*1 .OE-4 

CSPRD1=( 1 .0-CSPRD2 ) /CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

C SET CONSTANTS FOR THE P2 BRANCH (PI TO SIGMA TRANSITION) OR 
C R2 BRANCH (SIGMA TO PI TRANSITION). 


BAND=0.0 
K=KMI N 
JU=K-0 • 5 
JL= JU- 1.0 

IF (FROMPI) JL=JU+1.0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SI GNU 1 = 1.0 
SIGNU2=1 .0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNS 1=1 .0 
S I GNS2=— 1 . 0 

CONST 1 = 1.0 
CONST 2= 1 . 0 
GO TO 80 

10 WRITE (6, 600) ( NAME { I PRINT , Ml ) .Ml = 1,2) .BRANCH, ( FACTRI (M) ,M = 1 ,5} 

C SET CONSTANTS FOR THE R1 BRANCH (PI TO SIGMA TRANSITION) OR 
C PI BRANCH (SIGMA TO PI TRANSITION). 


JU=K+0« 5 
JL=J(J+1 • 0 

IF (FROMPI) JL= JU-1 • 0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

S1GNU1=— 1.0 
SIGNU2=-1.0 


C SET CONSTANTS FOR THE STRENGTH EQUATION 



S I GNS 1= 1*0 
SIGNS2=-1 .0 

CONST 1 = 1 • 0 
C0NST2=0 • 0 
GO TO 80 

20 WRITE (6, 600) ( NAME t I PRINT ,M1),M1=1,2) .BRANCH, ( FACTRI ( M) ,M = 1 ,5) 

C SET CONSTANTS FOR THE SR21 BRANCH (EITHER TRANSITION). 


JU=K-0.5 

JL=JU-1.0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 


SI GNU1= 1 • 0 
S I GNU2=- 1 .0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 


SIGNS1=-1.0 
SIGNS2 — 1.0 

C0NST1 = 1 .0 
CONST2 = 1 . 0 

IF (FROMPI) CONST2=0.0 
GO TO 80 

30 WRITE (6, 600) ( NAME ( I PR I NT .Ml 1 ,M1 = 1,2> , BRANCH .( FACTR I ( M ) ,M=1.5) 

C SET CONSTANTS FOR THE 0P12 BRANCH (EITHER TRANSITION). 

JU=K+0.5 
JL=JU+1« 0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 


S IGNU1= _ 1 .0 
S I GNU2 = 1 . 0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 


SIGNS1=-1.0 
S I GNS2=- 1.0 


CONST 1=1.0 
CONST 2 = 0.0 

IF (FROMPI) CONST2=l . 0 
GO TO 80 

WRITE ( 6 , 600 ) (NAME! I PR I NT »M 1 ) .Ml = 1 « 2 ) , BRANCH »( FACTR I ( M ) ,M = 1 » 5 ) 


C 

C 


SET CONSTANTS FOR THE Q2 AND QP21 BRANCHES 
Q2 AND QR12 BRANCHES 


(PI TO SIGMA TRANSITION) OR 
(SIGMA TO PI TRANSITION). 


DBLBRN= .TRUE . 

JU=K-0.S 
JL = JU 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 


SIGNU1=1.0 
S I GNU2=1 • 0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 


SIGNS1=-1.0 
Si GNS2 = 1 . 0 
SIGNS3=“1.0 


SO 


CONST l*-7 .0 
CONST2= 1.0 
CONST 3 = 1.0 
GO TO 80 

WR I TE ( 6 * 602 ) 


( NAME ( I PRINT .Ml ) ,M1 = 1 , 2 ) .BRANCH » ( FAC TR I ( M ) »M = 1 » 5 ) 


C 

C 


SET CONSTANTS FOR THE Q1 AND QR12 BRANCHES 
Q1 AND QP2 1 BRANCHES 


(PI TO SIGMA TRANSITION) OR 
(SIGMA TO PI TRANSITION). 


JU=K+0 • 5 
JL = JU 


C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 


S I GNU1=-1 .0 
S I GNU 2 =-1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 


SIGNS1=-1 .0 
S IGNS2 = 1 .0 
S I GNS 3= 1.0 

CONST l=-7 .0 
CONST 2 = 0.0 
CONST3=-7.0 
GO TO 80 

60 WRITE(6,602) ( NAME ( I PRINT .Ml > ,M1 = 1 , 2 1 .BRANCH .( FACTRI ( M ) ,M = 1 ,5 ) 



C SET CONSTANTS FOR THE R2 AND RQ21 BRANCHES {PI TO SIGMA TRANSITION) OR 
C P2 AND P012 BRANCHES (SIGMA TO PI TRANSITION). 


JU=K— 0 • 5 
JL= JU+1 • 0 

IF (FROMPI) JL= JU— 1 .0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SIGNU1=1.0 
S I GNU2= 1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

5 I GNS 1 = 1.0 
S I GNS2 = 1.0 
SIGNS3= 1.0 

CONST l=-7 . 0 
CONST 2 = 0 . 0 
CONST3=-7 .0 
GO TO 80 

70 WRITE 16. 6 02) ( NAME ( I PR I NT ,M1 ) >M1 = 1 ,2 ) .BRANCH* ( FAC TR I CM) *M= 1 * 5 ) 

C SET CONSTANTS FOR THE PI AND PQ12 BRANCHES (PI TO SIGMA TRANSITION) OR 
C R1 AND RQ21 BRANCHES (SIGMA TO PI TRANSITION). 

JU=K+0.5 

JL=JU-1.0 

IF (FROMPI) JL= JU+1 • 0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

S I GNU 1 =— 1 • 0 
S I GNU2=-1 .0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

S I GNS 1= 1 . 0 
5 1 GNS 2 = 1 . 0 
S !GNS3=-1.0 

CONST l=-7 .0 
CONST2=l .0 
CONST3= 1.0 

C COMPUTE AND DISTRIBUTE THE INTEGRATED INTENSITY DUE TO SPONTANEOUS 
C EMISSION OF ALL SPECIFIED ROTATIONAL LINES FOR THE APPROPRIATE BRANCH. 
C J IS THE ROTATIONAL QUANTUM NUMBER OF THE PI STATE. SEE REFERENCE BY 
C EARLS. 

80 BRANCH=0 . 0 

J=JL 

IF (FROMPI) J = JU 
DO 120 M=KMI N . KMAX 

C COMPUTE THE WAVELENGTH OF THE LINE CENTER IN ANGSTROMS. 

NUBAR=NUBARO +BVU* ( ( JU+0 .5 ) **2 -CAPLU**2 +SIGNUI/2.0 *SQRT<4.0* 

1 ( JU+0.5 ) *»2-4.0*YU*CAPLU**2 + ( YU*CAPLU ) **2 > ) 

2 -BVL*( ( JL+0.5 >**2 -CAPLL**2 +SIGNU2/2.0* 

3 SORT ( 4. 0* ( JL+0 .5 ) **2 -4.0*YL#CAPLL**2 + < YL*CAPLL ] **2 ) > 

LAM CL = 1 • OE+8 /NUBAR 

C IF THE LINE WAVELENGTH FALLS OUTSIDE THE SPECTRAL RANGE OF 

C INTEREST, OMIT IT AND PROCEED TO THE NEXT LINE. 

IFILAMCL.LT. LAMMIN-RANGE*WIDTHV) GO TO 110 
IF(LAMCL.GT.LAMMAX+RANGE*WIDTHV) GO TO 110 

C FIND STRENGTH FACTOR FOR SINGLE BRANCHES. 

U=1.0/SQRT( Y**2-4.0*Y+( 2 .0*J+1.0 ) **2 ) 

S=( <2.0*J+1.0)**2 +SIGNS1*(2.0»J+1.0 )*U*(4.0*J**2 +4.0*J +CONST1 
1 +SIGNS2*2.0*Y) )/< 16.0*(J+C0NST2) ) 

IF ( . NOT .DBLBRN ) GO TO 90 

C FIND STRENGTH FACTOR FOR DOUBLE BRANCHES. 

S=S +< 2.0*J+1.0>*( (4.0*J**2+4.0*J-1.0> -SIGNS1*U* ( 8. 0*J**3+12 .0 
1 *J**2 -2.0*J +CONST3 +S IGNS3*2 .0*Y ) ) / ( 16 .0* J*< J+l . 0 ) ) 

C FIND THE INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION. 

90 E= S* ( NUBAR**2*A0E ) **2*C I NT2+EXP ( -1.43879* (Cl NT 1 

1 + (BVU*JU*( JU+1.0 ) )/TROT)+2.30259*CINT3 ) 

C SET CONSTANTS USED TO DISTRIBUTE THE ROTATIONAL LINE. 

NCENTR = 1.5 + < LAMCL-LAMMINl/DELLAM 

NSTART =NCENTR-N5PRED 

IF (NSTART .LT. 1) NSTART = 1 

NEND=NCENTR +NSPRED 

IF (NEND .GT. NARRAY) NEND=NARR AY 


kl 



C DISTRIBUTE THE ROTATIONAL LINE 


100 


DO 100 M1=NSTART »NEND 
COUNT'Ml 

LAMBDA=LAMMI N+( COUNT-1. 0)*DELLAM 
CSPRD3=ABS( ( LAMBDA-LAMCL ) / W I DTHV I 

ELAM ( Ml ) =ELAM(M1 ) +E* I CSPRD 1*EXP( -2.772*C5PRD3**2) 

+CSPRD2/ ( 1 .0+4.0*CSPRD3**2) +0.016* CSPRD2*(1.0- 

W I DTHL/W 1 DTHV ) *( EXP ( -0 . 4*CSPRD3**2 . 2 5 ) -10.0/ 

( 10.0+ CSPRD 3* *2. 25) ) ) 


BRANCH* BRANCH +E 
110 JU=JU+1.0 

JL= JL+1 .0 
K=K + 1 . 0 
120 J=J+1.0 

C SET FACTORS IN PREPARATION FOR THE NEXT BRANCH. 


BAND=BAND+BRANCH 

S Y ST E M= S Y ST EM+ BRANCH 

K=KMIN 

IPRINT=IPRINT+2 
SW I TCH= SWITCH+ 1 

C GO TO THE APPROPRIATE BRANCH. 

GO TO (10.20.30.40,50.60.70.130). SWITCH 

C COMPUTE APPROXIMATE BAND INTENSITY. SEE BATES, PAGE 57 


130 QR-TROT / ( 1 .43879 + BVU ) 

APPROX=CINT 2*OR* (NUBAR0**2*A0E) **2*EXP ( - 1 • 4387 9*C I NT 1 + 
1 2.30259*CINT3)*2.0 


WRITE (6,601 ) 

1 

RETURN 


(NAME! I PRINT .Ml) .Ml = 1,2) , BRANCH ,( FAC TR I ( M ) ,M=1,5) » 
BAND, ( FACTRI (M) ,M=1.5) .APPROX, (FACTRI (M),M=1,5) 


C FORMATS FOR WRITE STATEMENTS. 

600 F ORMAT ( 94X » 2 A6 , 6HBRANCH ,4X , 1PE 1 0 . 4 , 5A 1 ) 

601 FORMAT ( 94X , 2A6 » 8HBRANCHES .2X.1PE10.4.5A1// 

1 1 04X , 1 OHBAND TOT AL » 2X , 1 PEI 0 . 4 , 5 A1 / 

2 92X » 22H APPROX I MATE BAND TOTAL ♦ 2 X » 1PE 1 0 .4 » 5 A 1 ) 

602 FORMAT ( 94X , 2 A6 » 8HBR ANCHES » 2X » 1 PE 1 0 . 4 , 5A1 ) 


END 


SORIGIN ALPHA 

SIBFTC HF075H 


SUBROUTINE ATOMIC 

C SUBROUTINE ATOMIC COMPUTES THE ELECTRONIC TRANSITION FOR ATOMS. 


COMMON /CP LOT /LAMM I N , LAMM AX .DEL LAM .NARRAY .CINT3.FACTRI ( 5 I 
COMMON /CARR AY / I LAM( 9000)»ELAM( 9000) 

COMMON/C READ /READ 1 , RE AD2 .READ3.READ4.READ5.READ6 

COMMON/CBANDI/ALPHAU.BEU.BETAU.CAPAU.CAPLU.DEU.DZEROU.REU.TERMU, 
1 ALPHA L, BEL .BETAL.CAPAL.CAPLL. DEL, DZEROL, RE L.TERML 

COMMON / CB AND2 / WEU » W EX EU » WE YEU.WEZEU. 8 VU.DVU, DEGENU, MU, ALTNAT , 

i ufi .wFyFi .WF YE! .WEZEL.BVL.DVL, NUSPIN 


COMMON /CTEMP/TELECT .TVIB.TROT 
COMMON/CWIDTH/WIDTHL.W I DTHV, RANGE 

COMMON /C TRAN /P ARTCC , NUBARO .Q.A0E.CINT1 , C I NT2 » KM IN, KM AX 

COMMON/C EXTRA/ INDEX. NFILE, SYSTEM. TOTAL, OUTPUT (12) 


REAL ILAM.LAMCL .LAMBDA .LAMMAX. LAMM I N. NAME 
DATA BLANK/6H / 

C WRITE THE INTEGRATED INTENSITY FOR THE PREVIOUSLY COMPUTED SYSTEM. 

IF (SYSTEM .NE. 0.0) WRITEI6.600) SYSTEM, (FACTRI(M) »M= 1 » 5 ) 

TOT AL=TOTAL+SY STEM 
10 SYSTEM = 0 * 0 


ATOMCC^R EAD 1 
TELECT = READ2 
0 =READ3 
NAME=READ6 

C WRITE THE GENERAL HEADING AND DATA FOR ATOMIC TRANSITIONS. 

20 WR ITE(6»601) READ6.AT OMCC .TELECT »Q 

30 READ( 5, 500IWIDTHG.WIDTHL, DEGENU, T ERMU » E I NSTN , L AMCL .RANGE.READ6 
IF (READ6.EQ. BLANK) GO TO 50 

C WRITE THE TOTAL INTEGRATED SPONTANEOUS EMISSION INTENSITY FOR THE 
C PRIOR ATOM. 



WRITE (6.602) NAME .SYSTEM ,( FACTR I ( M ) ,M=1,5> 

NAMp=READ6 
SYST EM=0 • 0 

! F ( TERMU .EQ. 0.0 .AND. DEGENU .NE. 0.0) GO TO AO 

READ1 =WI DTHG 

READ2=WIDTHL 

READ3=DEGENU 

READ4=TERMU 

READ5=E INSTN 

RETURN 

40 ATOMCC=W I DTHG 

TELECT= WIDTHL 
Q=DEGENU 
GO TO 20 

C FIND THE INTENSITY FACTOR. IF NECESSARY. 

50 C I NT 1 = TERMU/TELECT 

IFACTR=0.62486*CINT1 
I F ( I FACTR .LT. 30) GO TO 90 
C I NT4 = I FACTR 

IFICINT4 .LT. CINT3) GO TO 90 

FACTRI ( 1 >=OUTPUT( 12 ) 

M= I FACTR/ 1000 
DO 60 Ml =2 . 5 

FACTRI (Ml ) =0(JTPUT(M+1 ) 

I FACTR* IFACTR-M*10** ( 5-MI ) 

60 M= IFACTR/10**( 4— Ml ) 

C IF THIS IS NOT THE FIRST INTENSITY FACTOR, ADJUST THE ELAM ARRAY. 

I F ( Cl NT3 .EQ. 0.0) GO TO 00 
C I NT5= CINT4-CINT3 
DO 70 M= 1 »NARR AY 

70 ELAM(M)=ELAM(M)*EXP(2.30259*CINT5) 

SYSTEM= SYSTEM*EXP< 2 . 30259*C I NT 5 ) 

T OTAL - TOTAL*EXP(2. 302 59*C I NT5 ) 

80 C I NT 3 = CINT4 

C RANGE IS THE DISTANCE FROM THE LINE CENTER, IN LINEWIDTHS, BEYOND WHICH THE 
C LINE INTENSITY IS CONSIDERED ZERO. 

90 IF (RANGE .NE. 0.0) GO TO 95 
RANGE* 5.0 

IF (WIDTHL .EQ. 0.0) RANGE=3.0 

C FIND THE VOIGT LINE WIDTH AT HALF-HEIGHT. 

95 WI DTHV=W I DTHL/2.0+SQRT ( W I DTHL**2/4. O+W I DTHG**2 ) 

IF (WIDTHV .NE. 0.0) GO TO 100 

WIDTHV=10.0*DELLAM 

WIDTHG=WI DTHV 

WRITE(6,70ll 

C FIND THE NUMBER OF ENTRIES IN THE INTENSITY ARRAY, FROM THE LINE CENTER, 

C AT WHICH EACH LINE IS ASSUMED TO HAVE A CONTRIBUTION. 

100 NSPRED* 1 . 1 +RANGE*WIDTHV/DELLAM 

C SET CONSTANTS WHICH DETERMINE THE LINE SHAPE. 

CSPRD2=WIDTHL /WIDTHV 

CSPRD3=( 1 . 065+0.447*CSPRD2+0.0 5 8*CSPRD2**2 )*WIDTHV*1 .0E~4 

CSPRD 1 = ( 1.0-CSPRD2J/CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

C IF THE LINE WAVELENGTH FALLS OUTSIDE THE SPECTRAL RANGE OF 
C INTEREST, OMIT IT AND PROCEED TO THE NEXT LINE. 

IF(LAMCL.LT.LAMMIN-RANGE*W1DTHV) GO TO 120 
I F ( L AMCL .GT • L AMMAX+RA NGE*W I DTHV ) GO TO 120 

C FIND THE INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION. 

E= 1 . 580E-16*ATOMCC*DEGENU*EINSTN*EXP (-1 . 43879*TERMU/TELECT 
1 +2.30259*CINT3)/(Q*LAMCL) 

C SET CONSTANTS USED TO DISTRIBUTE THE ATOMIC LINE. 

NCENTR=1.5+( LAMCL-LAMMI N ) /DELL AM 

NSTART=NCENTR-NSPRED 

IF ( NSTART .LT. 1) NSTART = 1 

NEND=NCENTR +NSPRED 

IF (NEND .GT. NARRAY) NEND=NARRAY 

C DISTRIBUTE THE ATOMIC LINE. 

DO 110 M1=NSTART »NEND 
COUNT = M 1 

LAMBDA* LAMM I N +( COUNT-1 . 0 ) *DELLAM 
CSPRD3* ABS ( ( LAMBDA-LAMCL) /WIDTHV) 

110 EL AM ( M 1 ) =ELAM (Ml) +E* ( CSPRD1*EXP ( -2 . 772*CSPRD3**2 ) 

1 +CSPRD2/ (1.0+4.0*CSPRD3+*2) +0.016* CSPRD2*(1.0- 

2 WIDTHL/WI DTHV ) * ( EXP ( _ 0 . 4*CSPRD3**2 .25) -10.0/ 

3 ( 10.0+CSPRD3**2.25 > ) ) 



SYSTEM=SYSTEM+E 

TOTAL=TOTAL+E 


C PRINT ATOMIC LINE INFORMATION. 

IDEGEN= DEGENU+ O.I 

wr^te(6.603? E lamcl,idegen,termu.einstn,widthg,widthl.widthv, 

1 IRANGE,E,<FACTRI(M) ,M=1,5) 

GO TO 30 


C 

120 


LINE WAVELENGTH FALLS OUTSIDE SPECTRAL RANGE OF INTEREST. 


WR I TE ( 6, 700 ) LAMCL 
GO TO 30 


C FORMAT FOR READ STATEMENT. 

500 FORMAT (6E10.0»E6.0»A6) 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT ( / / 103X , 12HSYST EM TOTAL,1X»1PE10»4,5A1) 

601 F ORMAT ( / /52X , 25HATOM I C LINE SPECTRUM FOR ,A6// 

1 35X.9HNUMBER OF/ 

1 35X » 5H ATOMS , 20 X , 

10H ELECT RON I C * 16X * 9HPART I T I ON/ 

35X.6HPER CC » 1 9X » 1 1HTEMPERATURE , 15X * 8HFUNCT ION// 
35X,1PE10.4»15X,E10.4,16X,E10.4// 
ay i OHWAVE LENGTH »6X»10HELECTRONIC»6X» 10HELECT RONI C , 6X , 
8HEINSTEIN,9X,11 HATOM I C L I NE , 16X , 5HRANGE , 1 OX »10H INTEGRATED/ 
9X.12HIN ANGSTROMS. AX. 10HDEGENERACY , 6X , 1 1HT ERM ENERGY, 

5X.7HA COEF F , 10X » 20HW I DTH AT HALF-HE l GHT » 7X , 7H I N LINE, 

g 7AX .21HGAUSS LORENTZ VOIGT , 6X , 6HW I DTHS » 9X »8HW/ CM2-SR / / ) 

602 FORMAT(/76X.10HSUM OF THE , IX , A6 , 1 X , 21H ATOMI C LINES INCLUDED, 

603 ^ FORMAT (9X»F9.3»llX»I2,10XilPE11.5,5X‘, 1PE10.A,5X,3<0PF7.3,1X) , 

1 5X,I4,11X,1PE10.4,5A1) 

C FORMATS FOR ERROR STATEMENTS. 

700 FORMAT ( 10X.3HLINE AT , 1PE1 0 . A , 43H ANGSTROMS FALLS OUTSIDE THE PLOT 

701 1 FORMAT^/ 8X .117HLINE WIDTHS WERE NOT INPUT FOR NEXT LINE. PROGRAM! 
IMPOSED A GAUSSIAN PROFILE WITH WIDTH AT HALF-HEIGHT - 10*1 NTERVAL. 

2 ) 


END 


SORTGIN 
$ I BFTC HF075J 


ALPHA 


SUBROUTINE PR I NT ( NEWCAS ) 

C SUBROUTINE PRINT TABULATES SPECTRAL INTENSITY VS WAVELENGTH ON THE 

WHICH NOW CONTAINS WAVELENGTHS, WILL 


C WRITTEN OUTPUT. 


C IN THIS SUBROUTINE, THE I LAM ARRAY 
C BE NAMED LAMBDA. 

COMMON/CPLOT/L AMM IN, LAMM AX , DELL AM , NARR AY , C I NT 3 , FACTR I ( 5) 

COMMON /CARR AY /LAMBDA ( 9000 ), ELAM ( 9000 ) 

C0MM0N/CREAD/READ1,RFAD2,READ3,READ4,READ5, READS 

COMMON / CB AND1 / ALPHAU, BEU, BET AU,CAPAU,CAPLU,DEU,DZEROU,REU,TERMU< 

1 ALPHAL.BEL.BETAL, CAPAL »CAPLL»DEL« DZEROL , R tL » LKML 

COMMON/ CBAND2 /WEU»WEXEU,WEYEU,WEZEU.BVU, DVU , DEGENU, MU, ALTN AT, 

1 WEL , WEXEL »WE YEL , WEZEL, BVL »DVL , NUSP I N 

COMMON/CTEMP/TELECT.TVIB.TROT 
COMMON /CW I DTH/ W I DTHL , W I DTHV .RANGE 

COMMON/CTRAN/PARTCC,NUBARO,Q,AOE,CINT1 .CINT2.KM1N.KMAX 

COMMON /C EXTRA/ I NDEX , NFILE, SYSTEM, TOTAL, OUT PUT ( 1 2 ) 

REAL LAMBDA, LAMM A X , LAMM I N 
LOGICAL NEWCAS 
DATA L0G/6HL0G 

C WRITE GENERAL HEADING AND READ A CARD SPECIFYING WHETHER THE 
C INTENSITIES ARE TO BE PRINTED AS LINEAR OR LOG VALUES. 


WR I T E ( 6 , 600 ) 

I F ( NEWCAS ) GO TO 50 

READ (5,500) KIND 

IFIKIND .NE. LOG) GO TO 50 

C A LOG OUTPUT IS DESIRED. 

C WRITE HEADING FOR THE LOG OUTPUT, ENSURE THAT THE LOG OF ZERO WILL 
C NOT BE TAKEN, AND APPLY THE INTENSITY FACTOR. 

WRITE(6.60l) 

DO 10 M= 1 , NARR AY 

IF (ELAM(M) .EQ. 0.0) EL AM ( M ) = 1 . 0E-38 
10 ELAM(M)=ALOG10(ELAM(M) ) - CINT3 



NWRITE=NARRAY/A 

N1=NWRITE+1 

N2«2*NWRITE+1 

N3=3*NWRIT E+l 

C PRINT THE LAMBDA VERSUS LOG ( ELAM ) VALUES IN FOUR COLUMNS ACROSS THE PAGE. 
DO 20 M= 1 »NWR I TE 

WR I TE( 6.602) LAMBDA (M) »ELAM( M> .LAMBDA! N1 ) .ELAMINl > .LAMBDA! N2 ) . 

1 ELAM ( N2 ) .LAMBDA (N3) »ELAM(N3) 

N1=N 1+ 1 
N2=N2+1 
20 N3=N3+1 

C IS THE PRINTING COMPLETED. IF SO. RETURN TO THE MAIN PROGRAM. 

IF ( 4*NWRITE.EQ.NARRAY) RETURN 

N1=A*NWRITE+1 

NWRITE=NARRAY-A*NWR1TE 

C WRITE THE REMAINING VALUES AND RETURN TO THE MAIN PROGRAM. 

DO 30 M= I *NWR I TE 

WR I TE ( 6 .603 ) LAMBDA ( N1 1 .ELAMI N1 ) 

30 N1 =N1+ 1 

RETURN 

C A LINEAR OUTPUT IS DESIRED. 

C WRITE THE HEADING FOR THE LINEAR OUTPUT. 

50 WR ITE(6»605) 

NWR I T E = N ARRAY/4 
N1=NWRITE+1 
N2 = 2*NWR I TE+1 
N3=3*NWR I TE+1 

C PRINT THE LAMBDA VERSUS ELAM VALUES IN FOUR COLUMNS ACROSS THE PAGE, 

DO 60 M= 1 , NWR I TE 

WR I TE( 6.606 ) LAMBDA (M) . ELAM ( M ) . ( FACTRI (Ml > ,M1 = 1 , 5 > .LAMBDA ( N1 ) , 

1 ELAM(Nl) .(FACTRI (Ml I. Ml = 1.5) . LAMBDA (N2) . ELAM ( N2 ) . 

2 ( FACTRI (Ml ) .Ml = l .5 ) » LAMBDA ( N3 ) .ELAMI N3 I , 

3 (FACTRI (Ml ) ,M1=1.5> 

N1 = N 1+ 1 

N2=N2+1 
60 N3= N3+ 1 

C IS THE PRINTING COMPLETED. IF SO. RETURN TO THE MAIN PROGRAM. 

IF ( 4* NWR ITE.EQ.NARRAY) RETURN 

N 1 =4*NWR I TE+1 

NWR I TE = N ARRAY— 4*NWR I T E 

C WRITE THE REMAINING VALUES AND RETURN TO THE MAIN PROGRAM. 

DO 70 M= 1 ,NWR I TE 

WRITE (6, 60 7) LAMBDAfNl ), ELAMINl ) .(FACTRI (Ml) .Ml = 1.5) 

70 N1=N1+1 

RETURN 

C FORMAT FOR READ STATEMENT. 

500 FORMAT ( 66X . A6 ) 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT (//49X.3AHTABULATI ON OF COMPUTED SPECTRUM//) 

601 FORMAT ( A ( 3X .29HWAVELENGTH LOG 1 0 ( I NT ENS I T Y , IX ) / 

1 A ( 3X . 2 9H ANGSTROMS W/CM2-M I CRON-SR ) . 1 X I // 1 

602 FORMAT (A(AX,F8.2»5X.F10. A. 6X) ) 

603 F0RMAT(103X,F8.2»5X,F10.4> 

605 FORMAT ( A ( 3X .2 1HWAVELENGTH INTENSITY, 8X)/ 

1 A( 3X.27HANGSTROMS W /CM2-M I CRON-SR , 2X >// ) 

606 FORMAT(A(AX,OPF8.2,AX,1PE11.A,5A1 ) ) 

6 07 FORMAT! 100X , F8 . 2 , AX ♦ 1 PE 1 1 . A , 5 A 1 ) 


SORIGIN ALPHA 

SI8FTC HF075K 

SUBROUTINE INTRVL ( N I NTRV ) 

C SUBROUTINE INTRVL COMPUTES INTEGRATED INTENSITIES BETWEEN SPECIFIED 
C WAVELENGTHS. 

C IN THIS SUBROUTINE. THE I LAM ARRAY, WHICH NOW CONTAINS WAVELENGTHS, WILL 
C BE NAMED LAMBDA. 

COMMON /CPLOT /LAMM I N.LAMMAX .DELL AM , NARR AY , C I NT3 , FAC TR I ( 5 ) 
COMMON/CARRAY/LAMBDAf 9000). ELAMI 9000) 

COMMON/ CREAD/RE AD 1 .READ2.READ3, REA DA.READ5, RE AD6 

COMMON/ CBAND1 / ALPHAU .BEU.BET AU » C ApAU .CAPLU.DEU, DZEROU , REu » TERMU , 

1 ALPHAL » BEL .BETAL.CAPAL.CAPLL.DEL. DZEROL » REL > TERML 

COMMON/ CBAND2 /WEU .WEXEU.WEYEU.WEZEU . B VU *DVU, DEGENU .MU , AL TN AT , 

1 WEL.WEXEL.WEYEL.WEZEL.8VL.DVL. NUSPIN 
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COMMON/CTEMP/TELECT ,TVIB»TROT 
COMMON/CWIDTH/WIDTHL.WIDTHV, RANGE 

COMMON / CTRAN/P ARTCC » NUB ARO ,Q , AOE , C I NT 1 ,C I NT2 * KM I N» KMAX 
COMMON /C EXTRA/ INDEX *NFILE » SYSTEM , TOT AL * OUTPUT ( 12 > 

REAL LAM 1 ,LAM2 , LAMM AX , LAMM IN, LAMBDA, 

C WRITE GENERAL HEADING AND READ WAVELENGTH LIMITS FOR INTEGRATION 
C INTERVAL. 

WR 1 TE ( 6 ,600 ) 

10 READ (5,500) LAM 1 , LAM2 

C INITIALIZE INTEGRATED INTENSITY FOR THIS INTERVAL. 

TOTALl=0.0 

C IF THE UPPER WAVELENGTH LIMIT WAS INPUT FIRST, WRITE AN ERROR 
C MESSAGE AND OMIT THIS INTERVAL. 

IF (LAM2 .LE. LAM1 ) GO TO 70 

C IF WAVELENGTH LIMITS ARE OUTSIDE SPECTRAL RANGE CONSIDERED, SET 
C INTEGRATION LIMITS TO APPROPRIATE END WAVELENGTH, 

IF ( L AMI .LT. LAMM I N ) LAM1 =L AMM I N 
IF ( L AM2 .GT. LAMMAX) LAM2=L AMMAX 

C FIND INDICES IN INTENSITY ARRAY TO BE INCLUDED IN INTEGRATION. 

NSTART* 1.0 +( LAM1-LAMMIN) /DELLAM 
NEND* 1.0 + ( LAM 2— LAMM INl/DELLAM 

C TEST INTERVAL LIMITS. 

IF ( NSTART .LT. NENDI GO TO 20 

C THE INTERVAL IS BOUNDED BY CONSECUTIVE ENTRIES IN THE LAMBDA ARRAY. 

5L0PE =(ELAM(NSTART + 1)-ELAM(NSTART))/DELLAM A „_ 

TOTAL 1=1 ( SLOPE* (LAMl-LAMBDAI NSTART) ) +ELAM 1 NSTART > >+< SLOPE* < LAM2- 
1 LAMBDA ( NSTART ) ) +EL AM ( NST ART ) ) ) * ( L AM2-L AMI ) / 2 . 0 E+ A 

GO TO 50 

C IS THERE A RIGHT-HAND INCREMENT. 

20 IF ( NEND.EQ.NARRAY) GO TO 30 

C COMPUTE INTEGRATED INTENSITY FROM RIGHT-HAND INCREMENTAL AREA. 

ELAM1 =( ELAM (NEND+1) -ELAM (NEND) ) * ( L AM2-LAMBDA I NEND ) )/ 

1 DELLAM+ELAMtNEND) 

TOTAL 1 = ( ELAMl+ELAMI NEND) ) * ( L AM2-LAMBDA ( NEND ) ) /2.0E+4 

C COMPUTE INTEGRATED INTENSITY FROM LEFT-HAND INCREMENTAL AREA. 

30 ELAM1 = (ELAM (NSTART) -ELAM ( NST ART + 1 ) )*( LAMBDA ( NSTART + 1 I -L AMI ) / 

1 DELLAM+ELAMINSTART+l ) ArA , , , AU , . 

TOTAL I=T0TALI+(ELAM1+ELAM(NSTART+1) ) *( LAMBDA (NST ART+1) — LAM1 I/2.E+4 

C DO INTERVAL LIMITS BOUND A SINGLE ENTRY IN THE LAMBDA ARRAY. 

IF (NEND .EQ. NSTART+1) GO TO 50 

C COMPUTE INTEGRATED INTENSITY FROM CENTRAL INCREMENTAL AREAS. 

NSTART=NSTART+2 

DO AO M=NSTART,NEND „ , 

AO TOTALI = TOTALl + < ELAM { M ) +ELAM ( M"1 > ) *DELLAM/2 . OE+A 

C WRITE WAVELENGTH LIMITS AND RESULTING VALUE OF INTEGRATION. 

50 WRITE(6,601) LAM1 >LAM2 , TOT AL 1 , ( F AC TR I ( M ) , M= 1 , 5 ) 

C IF INTEGRATION HAS BEEN COMPLETED FOR ALL SPECIFIED INTERVALS, 

C RETURN TO MAIN PROGRAM. 

60 NINTRV=NINTRV-1 

IF ( N I NTRV.NE. 0 ) GO TO 10 
RETURN 

C THERE IS AN ERROR IN THE LIMITS FOR THE INTEGRATION INTERVAL. 

70 WR I TE ( 6 , 700 ) LAM1.LAM2 

GO TO 60 

C FORMAT FOR READ STATEMENT. 

500 FORMAT! 2E10.0) 

C FORMATS FOR WRITE STATEMENTS. 

, n . format t // /50X , 3 1H INTEGRATED SPECTRAL INTENSITIES// 

1 35X » 16HL0WER WAVELENGTH 10X , 16HUPPER WAVELENGTH , 1 OX , 1 OH I NT EGR 

2 ATED/ 35X,5HLIMIT21X,5HLIMIT,21X,9H1NT£NSITY/ 

3 35X »9H ANGST ROMS 17X »9H ANGST ROMS, 17 X, 8 HW/CM2-SR// ) 

601 FORMAT(35X,1PE10.A,16X,E10.A,16X,E10.4,5A1) 
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C FORMAT FOR ERROR STATEMENT 


700 F ORMAT (//10X.16HTHE LOWER LIMIT .1PEU.4.33H IS GREATER THAN THE U 
1PPER LIMIT .E11.4.36H THUS INTEGRATION WAS NOT PERFORMED. ) 




SORIGIN ALPHA 

SIBFTC HF075L 

SUBROUTINE SLIT(NSLIT) 

C SUBROUTINE SLIT COMPUTES THE OUTPUT SIGNAL GIVEN BY A SPECIFIED 
C INSTRUMENT SENSITIVITY. 

C IN THIS SUBROUTINE. THE I LAM ARRAY. WHICH NOW CONTAINS WAVELENGTHS. WILL 
C WILL BE NAMED LAMBDA. 

COMMON /CP LOT /LAMM IN .LAMM AX .DELLAM.NARRAY.CINT3.FACTRI ( 5) 

COMMON/ CARR AY / LAMBDA ( 9000>,ELAM( 9000) 

COMMON /CRE AD/RE ADI, RE AD2 , RE AD3.READ4.READ5, RE AD6 

COMMON /CBAND1 / ALPHAU , BEU > BET AU » CAP AU ,C APLU ,DEU » DZEROU , REU . TERMU » 

1 ALPHAL.BEL.BETAL.CAPAL.CAPLL.DEL.DZEROL.REL.TERML 

COMMON/CBAND2 /WEU , WEXEU.WEYEU.WEZEU. BVU » DVU .DEGENU . MU. ALTN AT . 

1 WEL.WEXEL.WEYEL.WEZEL.BVL.DVL. NUSPIN 

COMMON/ CTEMP/ TE LECT . T V I B ♦ T ROT 
COMMON /CW I DTH/W I DTHL.WIDTHV. RANGE 

COMMON /C TRAN /PARTCC . NUBARO »Q»A0E,CINT1 .CINT2.KMI N »KMAX 
C0MM0N/CEXTRA/INDEX,NFILE,SYSTEM,T0TAL,0UTPUT( 12! 

DIMENSION LAM ( 1 00 ) ♦ RSL I T ( 1 00 ) » L AMR ( 100 ) . RL AM ( 100) . LAMS ( 500) • 

1 S I GLAM (500) . LAMSAV ( 100 ) 

REAL L AM 1 , LAM2. L AM, LAMBDA, LAMR. LAMS. LAMCL.LAMS1.LAMS2. LAMSAV 
INTEGER BLOCK, FACTRI .SCAN, FLAG 
DATA SLIT1/4HSLIT/ 

C WRITE THE GENERAL HEADING AND INITIALIZE THE COUNTER SPECIFYING 
C HOW MANY SLIT CASES HAVE BEEN COMPLETED. 

WRITE (6,600) 

MSL I T = 0 

C ARE ALL THE DESIRED SLIT CASES COMPLETED. IF SO, RETURN TO THE MAIN PROGRAM. 

5 IF(MSLIT. EO. NSL I T I RETURN 

C THIS IS THE STARTING POINT FOR THE CONSIDERATION OF EACH NEW SLIT CASE. 

C IF AN ERROR WAS DETECTED IN THE PRIOR CASE, READ THROUGH THE REMAINING CARDS. 

6 READ (5,505) SEARCH 
IF(SEARCH.NE.SLITI) GO TO 6 
MSL I T = MSL 1 T+l 

C INITIALIZE THE INSTRUMENT OUTPUT SIGNAL. 

S I GNAL=0 . 0 
WR I TE (6.616) 

C READ THE CARD THAT SPECIFIES THE TYPE OF INSTRUMENT SENSITIVITY TO BE 
C CONSIDERED. 

C NPO I NT= NUMBER OF ARRAY ELEMENTS SPECIFYING SLIT FUNCTION. IF 
C NPO I NT = 0 , THE SLIT FUNCTION IS SPECIFIED BY A GAUSSIAN CURVE. 

C SCAN= 1 SPECIFIES A SCANNING SLIT CASE. SCAN= 0 SPECIFIES A FIXED 
C SLIT CASE. 

C STEP= DISTANCE IN ANGSTROMS THAT THE SLIT IS MOVED FOR EACH STEP OF 
C THE SCAN. 

C LAMS 1 = STARTING WAVELENGTH OF THE SCAN FOR A SCANNING SLIT. LOCATION 
C OF THE SLIT CENTER LINE FOR A FIXED LINEAR SLIT. 

C LAMS2= STOPPING WAVELENGTH OF THE SCAN FOR A SCANNING SLIT. 

C NRL AM5= NUMBER OF ARRAY ELEMENTS IN THE SPECTRAL CALIBRATION ARRAY. 

READ ( 5,500) NPOINT , SCAN, STEP .L AMS1 ,LAMS2»NRLAMS 

C WRITE HEADINGS FOR THE APPROPRIATE CASE. 

I F ( SCAN.NE . 1 ) WRITE (6, 601 ) MSL I T 

I F ( SCAN » EQ. 1 ) WR I TE ( 6 ,602 ) MSL 1 T , L AMS1 , LAMS2 , ST EP 

C WAS THE UPPER SCAN LIMIT INPUT LESS THAN OR EQUAL TO THE LOWER LIMIT. 

C IF SO, WRITE AN ERROR MESSAGE AND OMIT THIS SLIT. 

IFI5CAN.EQ.1.AND. LAMS2 .LE. LAMS 1 ) GO TO 272 

C IS THE SLIT FUNCTION SPECIFIED BY A GAUSSIAN CURVE OR BY A SET 
C OF LINEAR SEGMENTS. 

IF(NPOINT.EQ.O) GO TO 25 

C THE SLIT FUNCTION IS SPECIFIED BY LINEAR SEGMENTS. READ IN. 

C PRINT, AND TEST THE DEFINING VALUES OF THE SLIT FUNCTION. 

READ( 5,502) (LAM(M) .RSLlT(M) ,M=1, NPOINT) 

WR I TE ( 6 » 603 ) 

WRITE ( 6,604) ( LAM(M) , RSL IT ( M ) »M* 1 , NPOI NT ) 
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c 

c 


DO THE WAVELENGTHS SPECIFYING THE SLIT FUNCTION INCREASE 
MONOTONICALLY. IF NOT « WRITE AN ERROR MESSAGE AND OMIT THIS SL 


IT. 


Ml=NPOINT-l 
DO 10 M*1.M1 

IF(LAMIM).GE.LAM<M+1 ) > GO TO 265 
10 CONTINUE 

C FIND THE PEAK. OF THE SLIT FUNCTION AND COMPUTE THE EFFECTIVE WIDTH OF THE 
C SLIT FUNCTION SPECIFIED BY LINEAR SEGMENTS. 


15 


20 


W I DTH=0. 0 
RMAx=0.0 

DO 15 M= 1 .NPO I NT 

IFIRSLIT(M).GT.RMAX) 
Ml=NPOINT-l 
DO 20 M=1 ,M1 

WIDTH=WIDTH+0.5*(RSLI 


RMAX=RSL1T(M) 


T ( M+l ) +RSL I T ( M ) ) * ( LAM ( M+ 1 1 


-LAM ( M ) ) /RMAX 


C READ THE DATA DENOTING THE CENTER OF THE SLIT FUNCTION AND THE CALIBRATION 
C FACTOR USED TO SPECIFY THE INSTRUMENT SENSITIVITY IF THIS IS A FIXED 
r WAVFt.ENGTH RADIOMETER. 


READ! 5 .503 ) LAMCL .RLAMCL 

C IS THE SPECIFIED CENTER OF THE SLIT FUNCTION COMPATIBLE WITH THE SLIT 
C FUNCTION DATA. IF NOT , WRITE AN ERROR MESSAGE AND OMIT THIS SLIT. 

IFtLAMCL.LT.LAMI 1 ) . OR . LAMCL . GT . LAM ( NPO I NT I I GO TO 266 
GO TO 30 

C THE SLIT FUNCTION IS SPECIFIED BY A GAUSSIAN FUNCTION. PRINT THE 
C HEADING AND READ THE DEFINING DATA. 


25 WR I TE ( 6 » 607 ) 

READ (5.501) LAMCL.RLAMCL.WIDTH 

C IS THIS A SPECTROGRAPH OR SCANNING SPECTROMETER CASE. 

30 IF(SCAN.EO.l) GO TO 45 

C THIS IS A FIXED WAVELENGTH RADIOMETER. 

IF(NPOINT.EQ.O) GO TO AO 

C PRINT ADDITIONAL LINEAR SLIT DATA. 

WRITE (6.6 05 ) LAMCL . LAMS 1 .RLAMCL .WI DTH 

C POSITION THE SLIT AT THE SPECIFIED WAVELENGTH. 


SHIFT»LAMS1-LAMCL 
DO 35 M=1 , NPO I NT 
35 LAM (MI=LAM(M)+SHIFT 


C 

C 


IF PART OR ALL OF THE INSTRUMENT SENSITIVITY LIES OUTSIDE 
COMPUTED SPECTRUM. WRITE AN ERROR MESSAGE AND OMIT THIS SL 


THE 

IT. 


IF(LAMU) .LT. LAMBDA (II) GO TO 260 
I F t LAM ( NPOI NT I .GT. LAMBDA ( N ARRAY ) ) GO TO 260 
GO TO 125 

C PRINT THE GAUSSIAN INPUT DATA. 


40 WRITE ( 6.608 ) LAMCL. RLAMCL .WIDTH 

TEST 1 = LAMBDA ( 1 1 - t LAMC L-3 • 0*W I DTH ) 

IF I TEST1 .GT.0.0 ) GO TO 260 
TEST2=LAMBDA (N ARRAY )- ( LAMCL+3 . 0*W I DTH ) 
I F ( TEST2.LT .0.01 GO TO 260 
GO TO 155 


C 

C 

C 


HIS IS A SPECTROGRAPH OR A SCANNING SPECTROMETER CASE. POSITION THE 
LIT AT THE START OF THE SCAN AND TEST THE SPECIFIED END POINTS OF 
HE DESIRED SPECTRAL COVERAGE. 


45 IF(NPOINT.EQ.O) GO TO 70 

C THE SLIT FUNCTION IS SPECIFIED BY A LINEAR SLIT. 
C PRINT ADDITIONAL SLIT DATA. 


WR I TE ( 6 » 606 ) 

WR I TE ( 6 .604 ) LAMCL. WIDTH 

C POSITION THE LINEAR SLIT AT THE SPECIFIED STARTING WAVELENGTH FOR THE SCAN, 


SHIFT=LAMSl-LAMCL 
DO 55 M= 1 .NPO I NT 
55 LAM(M)=LAM(M)+SHIFT > 


C 

C 

C 

C 


TEST THE INPUT DATA FOR THE LINEAR SCANNING SLIT. 
IF PART OR ALL OF THE INSTRUMENT SENSITIVITY WILL 
COMPUTED SPECTRUM, MAKE THE APPROPRIATE ADJUSTMENT 
INDICATING THIS WAS DONE. 


FALL OUTSIDE THE 
AND WRITE A MESSAGE 


TEST1= LAMBDA (1 ) -LAM ( 1 ) 
IF(TESTl.LE.O.O) GO TO 65 
LAMS1 *=LAMS1+TEST 1 
DO 60 M=l» NPO I NT 



60 LAM(M) =LAM(M I + TEST1 

6 5 TEST 2=LAMBDA ( N ARRAY ) - ( LAMS 2 + LAM 1 NPOl NT ) — L AMS1 I 

GO TO 77 

C PRINT THE GAUSSIAN SLIT DATA. 

70 WR I TE 1 6 , 609 ) WIDTH 

C TEST THE INPUT DATA FOR THE GAUSSIAN SCANNING SLIT. 

C IF PART OR ALL OF THE INSTRUMENT SENSITIVITY WILL FALL OUTSIDE THE 
C COMPUTED SPECTRUM. MAKE THE APPROPRIATE ADJUSTMENT AND WRITE A MESSAGE 
C INDICATING THIS WAS DONE. 

TEST1 = LAMBDA ( 1 ) - ( LAMS 1-3 . 0*W I DTH ) 

IF(TESTl.LE.O.O) GO TO 75 
LAMS1=LAMS1+TEST1 

7 5 TEST 2 -LAMBDA ( N ARRAY I - ( LAMS 2+3 . 0*W I DTH ) 

77 IFITEST2.LT.0.0) LAMS 2 = LAMS2 + TEST2 

IFITESTl.GT. 0.0. OR. TEST2.LT. 0.0) WRITE16.702) LAMS 1 , LAMS2 . STEP 

C POSITION THE SLIT AT THE SPECIFIED STARTING WAVELENGTH OF THE SCAN. 

LAMCL=LAMS1 

C READ AND PRINT DATA SPECIFYING SPECTRAL CALIBRATION OF SCANNING SLIT. 

READ! 5.502) (LAMR(M) , RLAM ( M ) . M= 1 » NRLAMS ) 

WRITE (6, 610) 

WRITE ( 6,604) ( L AMR I M ) , RLAM ( M ) ,M=1 , NRLAMS ) 

C IF THE WAVELENGTH VALUES OF THE SPECTRAL CALIBRATION DO NOT INCREASE 
C MONOTONICALLY, WRITE AN ERROR MESSAGE AND OMIT THIS SLIT. 

M2=NRLAMS— 1 
DO 90 M=1,M2 

IF(LAMR(M).GE.LAMR(M+1) ) GO TO 270 
90 CONTINUE 

C IF THE END POINTS OF THE SPECTRAL CALIBRATION DO NOT BOUND THE 
C SCANNING RANGE, WRITE AN ERROR MESSAGE AND OMIT THIS SLIT. 

IFILAMSI.LT. LAMR(l) ) GO TO 271 
IF (LAMS2.GT .LAMRl NRLAMS ) ) GO TO 271 

C SET THE INITIAL VALUES OF COUNTERS AND WAVELENGTHS FOR THE SCAN. 

NS IGLM=1 
LAMSI 1 ) =LAMS1 
BLOCK- 1 
FLAG=0 
NSTEP=0 

C THIS IS THE STARTING POINT FOR EACH STEP OF THE SCAN. 

C LOCATE THE SLIT CENTER WAVELENGTH 6ETWEEN THE PROPER ELEMENTS IN 
C THE SPECTRAL CALIBRATION ARRAY. 

NRLAM=1 

95 IF(LAMCL.GE.LAMR(NRLAM).AND.LAMCL.LE.LAMR(NRLAM+1) ) GO TO 115 

NRLAM= NRLAM+1 
GO TO 95 

C FIND THE SPECTRAL CALIBRATION RLAMCL AT THE SLIT CENTER FOR THIS 
C STEP OF THE SCAN. 

115 RLAMC L=RLAM ( NRLAM ) + ( LAMCL-LAMR ( NR LAM ) ) * 1 RLAM t NRLAM+1 ) - 

1RLAM1 NRLAM) )/ ( LAMRl NRLAM+1 ) -LAMR ( NRLAM ) ) 

IF(NPOINT.EQ.O) GO TO 155 

C THE INTEGRATION SCHEME FOR LINEAR SLITS BEGINS HERE. 

C SET THE INITIAL INDEX VALUES FOR THE INTEGRATION. N1 AND N2 ARE 
C INDICES IN THE SPECTRAL ARRAY. Ml AND M2 ARE INDICES IN THE 
C SLIT FUNCTION ARRAY. 

125 NSTART=1.1+(LAM( 1 I -LAMBDA! 1 ) I /DELLAM 
N1=NSTART 
N2=N1+1 
Ml = l 
M2 = 2 

C COMPUTE THE SPECTRAL INTENSITY AT THE LEFT-HAND END POINT OF 
C THE SLIT FUNCTION. 

LAM1=LAM( 1 ) 

RSL I T 1=RSLI Til) 

ELAM1 = ELAM(N2 ) +1 LAMBDA 1 N2 ) “LAM 1 1 ) )*( ELAM! N1 ) -ELAM! N2 ) 1 / 

1 DELLAM 

C IS THE RIGHT-HAND POINT OF THE INTERVAL IN THE SPECTRUM OR SLIT 
C FUNCTION ARRAY. 


135 


IF(LAMBDA(N2).LT.LAM(M2) ) GO TO 140 



c 


THE RIGHT-HAND POINT Of THE INTERVAL IS IN THE SLIT FUNCTION ARRAY 


LAM2=LAM(M2) 

RSLIT2=RSLIT(M2I 

ELAM2«ELAM(N2I +< LAMBDA < N2 1 ~LAM ( M2 ) 
1 DELLAM 

M1=M1+1 
M2=M2+1 


> * ( EL AM ( N1 ) -ELAMI N2 ) 


) / 


GO TO 145 


C THE RIGHT-HAND POINT OF THE INTERVAL IS IN THE SPECTRUM ARRAY. 


140 LAM2 = LAMBDA ( N2 ) 

RSLIT2=RSLIT(M2)+ILAM( M2 ) —LAMBDA ( N2 ) ) * t RSL 1 T ( Ml ) -RSL I T ( M2 ) )/ 
1 ( LAM ( M2 I — LAM ( Ml ) ) 

EL AM2=EL AM ( N2 ) 

Nl=Nl+l 

N2=N2+1 


C GENERATE THE LINEAR SLIT INSTRUMENT OUTPUT SIGNAL. 

145 S I GNAL=S IGNAL + ( ELAM1 *RSL I T 1 +EL AM2*RSL I T 2 ) *RLAMCL* 

1 (LAM2-LAM11/2.0E+4 

C IS THE INTEGRATION FOR THIS SLIT OR THIS STEP IN THE SCAN COMPLETE. 

I F ( L AM < NPOI NT )— LAM2.LE.0.1*DELLAM) GO TO 150 
C MOVE TO THE NEXT INTERVAL. 

C THE LEFT-HAND POINT OF THE NEW INTERVAL IS THE RIGHT-HAND POINT OF 
C THE PRIOR INTERVAL. 

LAM1=LAM2 
RSL I T 1=RSL I T2 
ELAM1 =ELAM2 
GO TO 135 

C DIVIDE BY THE SLIT WIDTH TO YIELD THE INSTRUMENT OUTPUT 
C AT THIS WAVELENGTH. 

150 S ION AL=S IGNAL/ (WIDTH* 1.0E-04) 

GO TO 165 

C THE INSTRUMENT SENSITIVITY IS SPECIFIED BY A GAUSSIAN CURVE. 

C THE INTEGRATION SCHEME FOR GAUSSIAN SLITS BEGINS HERE. 

C FIND INDICES IN THE SPECTRUM ARRAY TO BE INCLUDED IN THE INTEGRATION. 

155 NSTART'l.l+t LAMCL-3 .0*W I DTH- LAMBDA ( 1 1 ) /DELLAM 

NEND=6.0*WIDTH/DELLAM 
NEND=NST ART+NEND+1 

C SET THE INITIAL INDEX VALUES FOR THE INTEGRATION. 

N1=NSTART 
N2=N 1+ 1 

C COMPUTE THE PRODUCT OF SPECTRAL INTENSITY AND INSTRUMENT SENSITIVITY 
C AT THE LEFT-HAND SIDE OF THE INTEGRATION ELEMENT. 

ELAM1=ELAM(N1)*RLAMCL*EXP(-2.772*I < LAMBDA ( N1 ) -LAMCL) /W I DTH ) **2 ) 

C COMPUTE THE PRODUCT OF SPECTRAL INTENSITY AND INSTRUMENT SENSITIVITY AT 
C THE RIGHT-HAND SIDE OF THE INTEGRATION ELEMENT. 

160 EL AM 2 = EL AM ( N2 ) *RLAMCL*EXP (-2.772*1 ( LAMBDA ( N2 ) -LAMC L ) /W I DTH ) **2 ) 

C GENERATE THE GAUSSIAN SLIT INSTRUMENT OUTPUT SIGNAL. 

SIGNAL=S IGNAL +( EL AMI +ELAM2 ) *DELLAM/2 . 0E+04 

N1 =N 1+ 1 

N2=N2+1 

C IS THE INTEGRATION FOR THIS SLIT OR THIS STEP IN THE SCAN COMPLETE. 

IF (N2 .GT. NEND) GO TO 161 

ELAM1=ELAM2 

GO TO 160 

C DIVIDE BY THE APPROPRIATE SLIT WIDTH TO YIELD THE INSTRUMENT OUTPUT 
C AT THIS WAVELENGTH. 

161 SIGNALS IGNAL/ I WIDTH*1.06439E— 04) 


C IS THIS A SCANNING SLIT CASE. 


165 I F t SC AN .NE. 1) GO TO 255 


C THIS IS A SCANNING SLIT CASE. 

S I GLAM ( NSIGLM) =S IGNAL 
C IS THE SCAN COMPLETED. 

IFIFLAG.EQ.l ) GO TO 250 

C IS A DATA BLOCK CONTAINING 500 ENTRIES FROM THIS SCAN COMPLETED. IF S0» GO 
C TO THE PORTION OF THE SUBROUTINE WHERE THE DATA BLOCK WILL BE PRINTED ON 
C THE OUTPUT SHEET. 

IF I NS I GLM. EQ. 500 ) GO TO 250 



C IS THE NEXT STEP THE LAST FOR THIS SCAN, 


180 TEST= LAMS 2-LAMS ( NSIGLM I 

IFITEST.LE.STEP) GO TO 200 

C SET THE COUNTERS AND WAVELENGTHS FOR THE NEXT STEP OF THE SCAN* 

NSTEP=NSTEP+1 
COUNT =NSTEP 

LAMCL=LAMS1+C0UNT*STEP 

C IF A DATA BLOCK WAS JUST PRINTED ( NS I GLM= 500 ) * READJUST THE COUNTER NSIGLM. 

IFINSIGLM.NE.500) GO TO 185 
NS IGLM= 1 

LAMS ( 1)=LAMS1+C0UNT*STEP 
GO TO 190 

185 NSIGLM=NSIGLM+1 

LAMS (NSIGLM) =LAMS1+C0UNT*STEP 

190 IF(NPOINT.EQ.O) GO TO 225 

C SAVE THE WAVELENGTHS OF THE SLIT FUNCTION AT THE FIRST SCANNING LOCATION. 

IF (NSTEP. GT • 1 ) GO TO 196 
DO 195 M=1 .NPOINT 

195 LAMSAV ( M ) =LAM ( M ) 

196 DO 197 M=l, NPOINT 

197 LAM ( M ) = LAMSAV ( M ) +COUNT*STEP 
GO TO 225 

C SET UP THE LAST STEP OF THE SCAN. 

200 FLAG= 1 

LAMCL=LAMS2 

C IF A DATA BLOCK WAS JUST PRINTED. READJUST THE COUNTER NSIGLM. 

IF (NSIGLM.NE. 500 > GO TO 205 

NSIGLM=1 
LAMS ( 1 ) = LAMS2 
GO TO 210 

205 NSIGLM=NS1 GLM+ 1 

LAMS (NSIGLM) = LAMS 2 

210 IF (NPOINT. EQ.O I GO TO 225 
DO 215 M=1 . NPOINT 
215 LAM ( M ) = LAM ( M ) +T EST 

C RE- INITIALIZE SIGNAL FOR THE NEXT STEP OF THE SCAN. 

225 SIGNAL=0.0 
GO TO 95 

C IF THIS IS THE FIRST DATA BLOCK, PRINT THE SCAN DATA HEADING ON THE 
C OUTPUT SHEET. 

250 I F ( BLOCK . EQ. 1 ) WRITE(6.612> 

C PRINT THE SCAN DATA ON THE OUTPUT SHEET. 

WR1TEI6.613) ( LAMS ( M ) .SIGLAMI M) , ( FACTR I ( Ml ) ♦ Ml= 1 » 5 ) , M=1 .NSIGLM) 

C IS THIS SCAN CASE COMPLETED. 

IFIFLAG.EO.l ) GO TO 5 

C THE SCAN CASE IS NOT COMPLETED. CONTINUE THE SCAN. 

BLOCK=BLOCK+1 
GO TO 180 

C WRITE THE FIXED WAVELENGTH RADIOMETER DATA ON THE OUTPUT SHEET. 

255 WR ITEI6.615) S I GNAL , ( FACTR I ( M ) • M= 1 , 5 ) 

GO TO 5 

C THERE IS AN ERROR IN THE SLIT INPUT DATA. WRITE AN ERROR MESSAGE 
C AND CONTINUE. 

C ALL OR PART OF THE FIXED SLIT LIES OUTSIDE THE COMPUTED SPECTRUM. 

260 WR I TE ( 6 , 7 00 ) 

GO TO 5 

C WAVELENGTHS SPECIFYING THE LINEAR SLIT FUNCTION DO NOT INCREASE 
C MONOTONICALLY. 

265 WR I TE ( 6 ,701 ) 

GO TO 5 

C SPECIFIED CENTER OF THE SLIT FUNCTION LIES OUTSIDE THE SPECIFIED SLIT 
C FUNCTION. 



266 WRITEI6.606) 

WRITE! 6,604 ) LAMCL. WIDTH 
WRITE ( 6*704) 

GO TO 5 

C WAVELENGTHS OF SPECTRAL CALIBRATION DO NOT I NCREA5E MONOTONICALLY. 

270 WR I TE ( 6 ,701 > 

GO TO 5 

C WAVELENGTHS SPECIFYING THE SPECTRAL CALIBRATION 
C DO NOT BOUND THE DESIRED SCAN RANGE. 

271 WRITE! 6.703) 

GO TO 5 

C UPPER SCAN LIMIT WAS INPUT LESS THAN OR EQUAL TO THE LOWER LIMIT. 

272 WR I TE ( 6 ,705 ) 

GO TO 5 

C FORMATS FOR READ STATEMENTS. 

500 FORMAT! 1 5 ,4X » I 1 . 4X , 3E10.0 » IX » 1 5 > 

501 FORMAT! 3E10.0) 

502 FORMAT ! 6E10 . 0 ) 

503 FORMAT ( 2E 10. 0 ) 

504 FORMAT ( 2E13.7 ) 

505 FORMAT! 1A4) 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT!//// 

1 34X.63HDETECTOR OUTPUT SIGNAL GIVEN BY A SPECIFIED I N5TRUME 

2NT RESPONSE///) 

601 FORMAT I 49X • 27HFIXED WAVELENGTH RADI OMETER ,2X , I 3// » 

602 FORMAT 1 42X . 37HSPECTROGRAPH OR SCANNING SPECTROMETER . 2X . 1 3 / / 
118X.20HSPECTRAL RANGE FROM .F8.2.4H TO .F8.2.23H ANGSTROMS COMPUTE 
2D AT .F6.3.19H ANGSTROM INTERVALS//) 

603 FORMAT ( 42X »42HSL I T FUNCTION SPECIFIED BY LINEAR SEGMENTS// 

1 50X » 10HWAVELENGTH * 11X.4HSLIT/ 

2 50X. 9HANGSTROMS . 1 2X , 8HFUNCT I ON/ / ) 

604 FORMAT! 5 IX , 0PF9 . 3 , 1 OX , 1PE1 1 . 4 ) 

605 FORMAT! / / 35X , 9HCENTER OF , 9X , 1 1 HLOCAT I ON OF.21X, 8HCOMPUTED/ 
135X.13HSLIT FUNCT ION , 5X , 1 1HSL I T CENTER . 5X , 1 1HCAL I BRAT I ON , 5 X , 
210HSLIT WIDTH/ 

33 5X. 9H ANGSTROMS »9X , 9HANGSTR0MS »7X»6HF ACTOR »10X»9H ANGSTROMS// 
435X*F9.3»9X»F9.3»6X»1PE11.4»4X»1PE11.4//) 

606 FORMAT! //50X. 9HCENTER OF.12X, 8HC0MPUTED/ 

1 50X.13HSLIT FUNCTION. 8X. 10HSLIT WIDTH/ 

2 50X . 9H ANGST ROM S » 12 X . 9HANGSTR0MS// ) 

607 FORMAT (41X.45HSLIT FUNCTION SPECIFIED BY A GAUSSIAN PROFILE//) 

608 FORMAT (31X.18HWAVELENGTH AT PEAK . 8X . 4HPEAK , 1 4X . 18HW I DTH AT HALF-P 
1EAK/31X.22HSENSITIVITY. ANGS TROMS , 4X , 1 1HSENS I T I V I T Y , 7X . 
222HSENSITIVITY, ANGSTROMS// 

339X.F9.3,11X.1PE11.4.12X,1PE11.4//) 

609 F ORMAT (50X.13HPEAK VALUE OF . 5X . 14HWI DTH AT HALF-/ 

1 50X.13HSLIT FUNCTION. 5X.15HPEAK. ANGSTROMS// 

2 52X.5H1.000.11X.1PE11.4) 

610 FORMAT! / / 16X . 96HSPECTR AL CALIBRATION OF INSTRUMENT THAT MULTIPLIES 

1 SLIT FUNCTION TO YIELD INSTRUMENT SENSITIVITY// 

2 50X.10HWAVELENGTH, 1 IX » 1 1HC AL 1 BRAT I ON/ 

350X. 9HANGSTROMS. 12X. 8HFUNCT I ON/ / ) 

612 FORMAT!/// 

1 5 IX . 1 1HLOCAT ION OF * 6X . 1 7H I NSTRUMENT OUTPUT/ 

2 51X.11HSL1T CENTER, 6X » 1 8H ( W/CM2-M I CRON-SR ) * . / 

3 5 IX , 9 H ANGST ROMS , 8X » 19H 1 SENS I T I V I TY UNITS) //) 

613 FORMAT! 5 1X.0PF9. 3,1 OX, 1PE1 1.4,5 A1 ) 

615 FORMATI33X, 19HRAD I OMETER OUTPUT , 1PE1 1 .4 , 5A1 , 37H! W/CM2-MI CRON-SR ) 
1*( SENSITIVITY UNITS)///) 

616 FORMAT ( / / 30X , 66H 

1 

2//) 

C FORMATS FOR ERROR STATEMENTS. 

700 FORMAT! /26X .83HDETECTOR OMITTED BECAUSE PART OR ALL OF SENSITIVITY 
1 LIES OUTSIDE COMPUTED SPECTRUM.//) 

701 FORMAT! /26X.67HDETECTOR OMITTED BECAUSE WAVELENGTHS DO NOT INCREAS 
IE MONOTONICALLY.//) 

702 FORMAT ! / / 5X 1 10HI NPUT DATA FOR LAMS 1 OR LAMS2 WOULD HAVE ALLOWED P 
1 ART OR ALL OF THE INSTRUMENT SENSITIVITY TO LIE OUTSIDE THE,/ 

24X, 96H COMPUTED SPECTRUM. THE END POINTS WERE APPROPRIATELY ADJUS 
3TED SO THAT NOW THE SCANNING RANGE IS,/ 

44X , 5H FROM ,F8. 2 , 4H TO ,F8.2, 16H ANGSTROMS WITH , F6.3, 

516H ANGSTROM STEPS.///) 

703 FORMAT! 1 OX » 1 01 HDETECTOR OMITTED BECAUSE WAVELENGTHS SPECIFYING SPE 
1CTRAL CALIBRATION DO NOT BOUND DESIRED SCAN RANGE.//) 

704 FORMAT !//8X, 10 3H DETECTOR OMITTED BECAUSE SPECIFIED CENTER OF SLIT 
1FUNCT I ON LIES OUTSIDE OF THE SPECIFIED SLIT FUNCTION.//) 

705 FORMAT!// 17X , 85HDETECTOR OMITTED BECAUSE UPPER SCAN LIMIT WAS INP 
1UT LESS THAN OR EQUAL TO LOWER LIMIT//) 


END 
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SUBROUTINE GROWTH 

C SUBROUTINE GROWTH COMPUTES THE CURVE OF GROWTH. 

COMMON/CPLOT/LAMMI N.LAMMAX » DELLAM » NARRAY » C I NT3 , FAC TR I ( 5 I 
COMMON /CARR AY / I LAM ( 9000 I »ELAM( 9000) 

COMMON/CREAD/READ1 , RE AD2 , RE AD3 , READ4 , R EAD5 , READ6 

COMMON /CB AND 1 / alphau, beu»betau»capau,caplu»deu*dzerou«reu»termu» 
i alphal,bel,betal,capal,capll»del.dzerol,rel,terml 

C OMMON /CBAND2 / WEU, WEX EU» WE YEU,WEZEU,BVU,DVU» DEGENU »MU» ALTNAT » 

1 WEL,WEXEL*WEYEL»WEZEL,BVL,DVL, NUSPIN 

COMMON/CTEMP/TELECT,TVIB,TROT 
common/cwidth/widthl.widthv, range 

COMMON /CTR AN /PARTCC »NUBAR0»Q»A0E»CINT1»CINT2»KMIN»KMAX 
COMMON/CEXTRA/ INDEX ,NFILE, SYSTEM, TOTAL. OUTPUT ( 12) 

REAL LAM1 »LAM2 .LAMMAX , LAMM I N , I L AM , I LAM 1 , L AMBDA , LAMDA 1 , LAMDA2 * 

1 LAMDA3 

DIMENSION DEPTH1I251, GROW ( 25 ) 

LAM1 = READ1 
LAM2= READ2 

C PRINT HEADING FOR CURVE-OF-GROWTH CALCULATION. 

WRITE! 6*600 ) LAM1.LAM2 

C IF THE UPPER WAVELENGTH LIMIT WAS INPUT FIRST, WRITE AN ERROR 
C MESSAGE AND OMIT THIS CURVE OF GROWTH. 

IF ( LAM2 .LE. LAM1 ) GO TO 70 

C IF WAVELENGTH LIMITS ARE OUTSIDE SPECTRAL RANGE CONSIDERED, SET 
C INTEGRATION LIMITS TO APPROPRIATE END WAVELENGTH. 

IF (LAM1 .LT. LAMMIN) LAM1-LAMMIN 
IF (LAM2 .GT. LAMMAX) LAM2-LAMMAX 

C FIND INDICES IN INTENSITY ARRAY TO BE INCLUDED IN INTEGRATION. 

NSTART= 1.0 +{ LAM1-LAMMIN ) /DELLAM 
NEND= 1.0 +ILAM2-LAMMIN) /DELLAM 

C DEFINE SPECIAL WAVELENGTHS NEEDED IN THE INTEGRATION. 

COUNT- NSTART 

LAMDA1- LAMMIN+ ( COUNT -1 .0 > *DELLAM 
LAMDA2= LAMDA1+ DELLAM 
COUNT = NEND 

LAMDA3- LAMMIN+ ( COUNT-1 .0 ) *DELLAM 
C INITIALIZE DEPTH AND START CURVE-OF-GROWTH CALCULATION. 

DEPTH= 3. 162278E-7 


10 


M2-NEND 

I F ( NEND .NE. NARRAY) M2-NEND+1 
DO 60 M 1 - 1 , 2 5 
TOTALI- 0.0 
DEPTH- DEPTH*3. 162278 
DO 10 M=NST ART , M2 

IF ( ELAM l M ) .LE. 1.0E-36) GO TO 10 
COUNT-M 

LAMBDA- ( LAMM I N + ( COUNT-1 . 0 ) *DELLAM ) *1 .OE-8 

BLAM=1. 1904E-16*EXP (-1 .43879/ (LA MB DA *T ELECT ) ) / ( LAMBDA**5* 

1 ( 1. 0-EXP (-1. 43879 /(LAMBDA*TELECT I ) ) ) 

CILAM1 =ALOG( 8.40032E+15*LAMBDA**5*( 1 . 0-EXP ( -1 . 438 79/ 

1 (LAMBDA*TELECT ) ) ) ) 

C1LAM2=AL0G( DEPTH ) 

CILAM3=AL0G(ELAM(M) ) 

CILAM4 =1.43879/1 LAMBD A*TELECT ) -2 . 302 59*C INT3+CILAM1+CILAM2 
1 +CILAM3 

IF (CILAM4 .GT. 87.0) CILAM4=87.0 
C I LAM4-EXP ( C I LAM4 ) 

1LAM(M)=BLAM*(1.0-EXP(-CILAM4) 1 
CONTINUE 


C TEST INTERVAL LIMITS. 

IF (NSTART .LT. NEND) GO TO 20 

C THE INTERVAL IS BOUNDED BY CONSECUTIVE ENTRIES IN THE LAMBDA ARRAY. 

SLOPE- ( ILAMINSTART+1 l-IL AM (NSTART) ) /DELLAM 
TOT AL I = ( ( SLOPE* ( L AM 1-LAMDA 1 ) + 1 L AM ( NSTART) I + ( SLOPE* ( LAM2- 
1 LAMDA 1 )•*• I LAM (NSTART ) ) ) * ( LAM2-LAM1 ) /2.0E+4 

GO TO 50 

C IS THERE A RIGHT-HAND INCREMENT. 


20 IF (NEND. EQ. NARRAY) GO TO 30 

C COMPUTE INTEGRATED INTENSITY FROM RIGHT-HAND INCREMENTAL AREA. 



I LAM 1= < I L AM ( NEND+1 ) -I LAM (NEND) ) * t LAM2— LAMDA3 ) / 

1 DELLAM+lLAMINEND) 

TOTAL I = ( I LAM1 + I LAM ( NEND ) ) * ( LAM2-LAMDA3 ) /2 . OE+A 

C COMPUTE INTEGRATED INTENSITY FROM LEFT-HAND INCREMENTAL AREA. 

30 ILAM1= ( I LAM ( N START I - 1 LAM < NST ART + 1 ) )* < LAMDA2-LAM1 >/ 

1 DELLAM+I LAM! NSTART+1 > 

TOTAL t=TOTALl+< I LAM1 + 1 L AM I NSTART + 1 ) ) * ( LAMDA2-LAM 1 ) / 2 . 0E+ A 

C DO INTERVAL LIMITS BOUND A SINGLE ENTRY IN THE LAMBDA ARRAY. 

IF INEND .EQ. NSTART+1) GO TO 50 

C COMPUTE INTEGRATED INTENSITY FROM CENTRAL INCREMENTAL AREAS. 

NST ART=NS TART +2 
DO AO M=NSTART.NEND 

AO TOTALI=TOTALI + ( I LAM ( M ) + 1 LAM ( M-l ) ) *DELLAM/2 . 0E+ A 

C RESET NSTART FOR NEXT STEP OF DO LOOP ENDING AT STATEMENT 60* 

NSTART=NSTART-2 

50 DEPTH1 ! Ml ) = DEPTH 

60 GR0W(M1)= TOTALI 

C WRITE CURVE-OF-GROWTH DATA. 

WRITEI6.601) ( DEPTH1 ( M ) .GROW I M ) * M = 1.25) 

RETURN 

C THERE IS AN ERROR IN THE LIMITS FOR THE INTEGRATION INTERVAL. 

70 WR I TE (6.700) LAM1.LAM2 
RETURN 

C FORMATS FOR WRITE STATEMENTS. 

600 FORMAT!// 

1 3AX . 33HCURVE OF GROWTH CALCULATION FROM .F8.2.AH TO ,F8.2» 

2 10H ANGSTROMS// 

3 70X.10H INTEGRATED/ 

A 52X. 9HGEOMETR IC »9X » 9HI NTENSITY/ 

5 52X.9HDEPTH, CM , 9X » 12HWATTS /CM2-SR/ / ) 

601 FORMAT I 52X.1PE9.3.10X.E9.3) 

C FORMAT FOR ERROR STATEMENT. 

700 FORMAT ( //10X. 16HTHE LOWER LIMIT .1PE11.A.33H IS GREATER THAN THE U 
1PPER LIMIT » E 1 1 . A » 36H THUS INTEGRATION WAS NOT PERFORMED. ) 


END 
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MAIN PROGRAM 





















































SUBROUTINE SET UP 


( START ) 


REWIND 9, PARTCC = READ1 J 

TELECT = REA02, TVIB = READ3 
TROT = READ4, INDEX ■ READ5 + 0.1 



READ PAST FRANCK- 
CONDON FACTORS 


READ SPECTROSCOPIC 
CONSTANTS FROM TAPE 


LEVELS =READ1+ 0.1 


\ 


READ MORE SPECTROSCOPIC 
CONSTANTS FROM TAPE 


p . 




- 50 

ALPHAU 

ALPHAL 

ALPHAIll 
ALPHA 121 

WEZEU » 
WEZEL = 

WEZE(l) 

WEZEI2) 

1 

1 Q : 

0.0 | 

A 

DO 70 M = 1, LEVELS 


I 


QVR : 

■ 0.0 

QV ■ 

■ 0.0 

EVIB1 = 

■ 0.0 

V ■ 

■ 0.0 



QV ■ 

QV + AQV 

QVR : 

QVR + . . . 

EVIB1 = 

EVIB2 

V . 

V + 1.0 


I 


WRITE INPUT DATA 

zznzz 

DO 100 M - 1, LEVELS 


DUMMY (11 ■ 

■ BLANK 

DUMMY (2) ■ 

■ BLANK 


MDUMMY ■ DEGEN UVD 


NEWCAS = .TRUE. 

j 1 

1 100 


DUMMY (1) ■ 
DUMMY (21 = 

■ UPPER 

■ STATE 

i 

1 


i 

r— 



(RETURN^ 






DUMMY (1) ■ 

: LOWER 

DUMMY (2) ■ 

■ STATE 































INITIALIZE - 
SKIPVV, AOE, C, PI 











































































SUBROUTINE ONE 









































C1NT2 - CINT2/2.0 
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SUBROUTINE PRINT 


TRUE 



i LOG 


\ WRITE HEADING 

i 


7 


50, 

WRITE HEADING 


! DO 10 M - 1, NARRAY 

= 0.0 



E A (M) 






E X (M) = 

10, 


1 

V 

Ex(M) = LOG 10 (En(M))- 

CINT3 


NWRITE = NARRAY/4 
N1 = NWRITE + 1 
N2 = 2 1 NWRITE + 1 
N3 = 3-NWR1TE + 1 


r* 


T 


._i 


11 

DO 60 M = 1, NWRITE 

WRITE SPECTRUM 

T 


NWRITE = NARRAY/4 
N1 = NWRITE + 1 
N2 = 2-NWRITE + 1 
N3 = 3-NWRITE + 1 


J___. 

DO 20 M = 1, NWRITE 




(return ) 


N1 = 4- NWRITE + 1 
NWRITE = NARRAY -4 -NWRITE 


DO 70 M = 1, NWRITE 




WRITE SPECTRUM 


L. 


N1 = N1 + 1 


r' 


N1 = 4-NWRITE + 1 
NWRITE = NARRAY -4-NWRITE 

DO 30 M = 1, NWRITE 
WRITE SPECTRUM J 


( RETURN ) 


. J 


3 


30 


N1 - N1 + 1 
(return) 























SUBROUTINE INTRVL 




















SUBROUTINE SLIT 

























SUBROUTINE GROWTH 
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DESCRIPTION OF INPUT CARDS FOR PROGRAM 
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spectral location at which slit function will be centered. 
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21-30 E10.0 WIDTH 1 WIDTH = width of slit function at half- 

peak height. This card is read in 
subroutine SLIT. 
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APPENDIX D 


LISTING OF SPECTROSCOPIC CONSTANTS AND FRANCK -CONDON FACTORS 
FOR MOLECULAR RAND SYSTEMS ON MAGNETIC TAPE 

In the listing of the Franck -Condon factors, values of 0.0 are printed as 
a row of stars (*) . 


8l 



INDEX NO. NUMBEP 

SPECIFYING SPECIFYING 

DIATOMIC SUBROUTINE DATA LCCATION 

TRANSITION USED IN CALC. CN TAPE 

CN V 1 1 

SPECTCGR APH I C CONSTANTS FOR A AND X STATES FROM PCLETTG ANC RIGUTTI, 
NAOVO C I MEMO 39, P5I9, (1965). 

e STATE DATA FROM FERZBERG EXCEPT HE ANC HEXE HUCH HERE TAKEN FROM 
DOUGLAS AND ROLTLY ASTRCPHYS J. SUPP.l, P295 I195A) 

RKR FRANCK-CONCCN FACTORS FROM SPINDLER JCSRT VCL . 5, P 165 11965). 
DISSOCIATION ENERGIES BASED ON FERZBERG P.455 AND ADJUSTED TO B.2 EV. 
THIS TRANSITION CCMPUTEC IN SUBROUTINE ZERO . 


LINE NUCLEAR SPIN NUMBER OF REDUCED 

ALTERNATION FOR HOMONUCLEAR ELECTRONIC ATOMIC 

FACTOR MOLECULES LEVELS HEIGHT 

C. 0.0 3 6.4643 


SPIN QUANTUM NUMBER OF ROTATIONAL ROTATIONAL DISSOCIATION I NTFRNUCLE AP DISTANCE 

COUPLING RESULTANT ELECTRONIC ANGULAR CONSTANT CONSTANT ENERGY AT EQUILIBRIUM 

CONSTANT MOMENTUM ABCUT INTERNUC. AXIS CE, 1/CM BETA, 1/CM CEZERO, 1/CM POSITION, CM 

UPPER STATE 0.00 C 0 . C0C0000E-3 6 C .OOOOOOOE-3 8 0.595000CE 05 C . 1 149300E-07 

LCHER STATE 0.00 C 0 . OOCOOOOE-3 8 C . C00000OE-3B 0.6620000E 05 0. 1 1 71 900E-07 


ELECTRONIC ELECTRONIC 

CEC-ENERACY TERM ENERGY HE HEXE WEYE HEZE BE ALPHA E 

UPPER STATE 2 2.57518C0E 04 2.1686I40E 03 2.C200000E 01 C .OCOOOOOE-39 0 . OOOOOOOE-39 1.97C10C0E CO 2. 2 1 50000E-0? 

LOWER STATE 2 0 . CCC0000E-39 2.C68745CE 03 1.3134000E 01 -5. 5000000E-03 0 . 0000000 E-39 1.89920C0E 00 1 . 701 3300E-02 

4 9.245348CE 03 1.8125550E 03 1.260860CE 01 - 1 . 1 8COOOOE-02 0 . OOOOOOOE-3 9 1.71510CCE CO 1 . 70757OCE-O2 


FRANCK-CCNCON FACTOR 


VV C 1 2 3 4 

V 

0 9 . 1790E-01 7.6000E-02 5.80C0E-C3 3.O0C0E-04 ********** 

1 8.Q9C0E-C2 7.79 5CE-C 1 1.24C0E-C1 1.43C0E-C2 1.2000E-03 

2 1.2000E-03 1.4170E-C1 6.7540E-C1 1.55C0E-01 2.39CCE-C2 

3 ********** 2.80C0E-C3 1.9050E-C1 5.S290E-01 1.745OE-0I 

4 ********** ********** 4.3COOE-C3 2.3180E-01 5.2790E-01 

5 ********** ********** 1.0000E-C4 5. 4CC0E-03 2.6680E-01 

6 ********** ********** ********** 2 . OOCOE-C4 5. 0000E-D3 

7 ********** ********** ********** ********** 7.CCC0E-C4 

8 ********** ********** ********** ********** ********** 

g ********** ********** ********** ********** ********** 

10 ********** ********** ********** ********** ********** 

11 ********** ********** ********** ********** ********** 

12 ********** ********** ********** ********** ********** 

13 ********** ********** ********** ********** ********** 

14 ********** ********** ********** ********** ********** 

15 ********** ********** ********** ********** ********** 

It ********** ********** ********** ********** ********** 

17 ********** ********** ********** ********** ********** 

18 ********** ********** ********** ********** ********** 

ig ********** ********** ********** ********** ********** 


5 6 7 8 9 

********** ********** ********** ********** ********** 

1.0000E-04 ********** ********** ********** ********** 

2.6000E-03 2.0000E-C4 ********** ********** ********** 

3.4200E-02 4.6000E-03 5.0000E-04 l.OOCOE-04 ********** 

1 . 825OE-0I 4 . 5200E-0 2 7. 1000E-03 1.00C0E-03 1.0009F-04 

4. 8240E-01 1.7810E-01 5.5400E-02 9.7000E-03 1.7000E-03 

2 . S330E-01 4. 5B30E-01 1.6400E-01 6.3900E-02 1.2300E-0? 

3.2000 E-03 3.0950E-01 4.5540E-01 1.42E0E-C1 7.08C0E-02 

1.7C00E-C3 5,00006-04 3.12206-01 4.7500E-01 1.14606-01 

********** 3 • 10006-03 1.0000E-04 2.55606-01 5.18406-01 

********** ********** 5 • 00006-03 5 .00 C06-03 2. 53706-01 

********** ********** ********** 6 • 7C00E-C3 2.04006-0? 

********** ********** ********** 3.0000E-C4 6.4000E-C3 

********** ********** ********** l.OOCOE-04 1.40006-C3 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 


V V 1C 11 12 13 14 

V 

0 ********** ********** ********** ********** ********** 

1 ********** ********** ********** ********** ********** 

2 ********** ********** ********** ********** ********** 

3 ********** ********** ********** ********** ********** 

4 ********** ********** ********** ********** ********** 

5 3.000GE-C4 ********** ********** ********** ********** 

6 2* 4CC0E-C3 4.0GC0E-04 l.OOCOE-04 ********** ********** 

7 1.41CCE-C2 3 • 10CCE-C3 5.00C0E-C4 l.OOCOE-04 ********** 

8 7.66CCE-C2 1.4800E-C2 3.70C0E-C3 7.00COE-O4 1.0000E-04 

9 8 . 1500E-0 2 8.2eC0E-C2 1.35CCE-C2 4.1CC0E-03 7.0000E-04 

10 5.80 10E-C 1 4.9500E-C2 9.01C0E-C2 1.UC0E-02 4.60C0E-03 

11 1.8970E-C1 6.4470E-C1 2.27C0E-C2 1.0240E-01 7.9000E-03 

12 4. 8100E-C 2 1 . 1310E-C1 6.9670E-C1 4.9CC0E-03 1. 1950E-01 

13 3. 7000E-C3 8.540CE-02 4.2900E-02 7.1270E-01 l.OOCOE-04 

14 3.4000E-C3 4 . OCOCE-C4 1.2020E-CI 2.6CC0E-03 6.7620E-C1 

15 **♦♦**<,444 5.5000E-03 2.2000E-C3 1.3600E-01 1.6000E-02 

16 1.0000E-04 5.0C00E-04 5.6CCCE-C3 1.6CC0E-02 1.2340E-01 

17 4444444444 4444444444 2.0000E-C3 3.CCC0E-C3 4.47C0E-02 

18 4444444444 4444444444 4444444444 A.0CC0E-C3 1.0000E-C4 

lg 4444444444 4444444444 4444444444 4444444444 4444444444 


15 16 17 18 19 

4444444444 4444444444 4444444444 4444444444 4444444444 

4444444444 4444444444 4444444444 4444444444 4444444444 

4444444444 4444444444 4444444444 4444444444 44444444*4 

44444*4444 4444444444 4444444444 444444444* ********** 

444*44444* 44*4*44**4 * 4***44444 * 444 * 4 * 44 * * 44444*444 

4444444444 4444444444 44*4444444 4*44*4 444 * 4444444*44 

444*444444 444*444444 * 4*4444444 444444*444 4444444444 

444444*444 444444444 * 444 * 4**444 444 * 44**44 4444444444 

444444 * 4*4 444 * 4 * 444 * ********** 4444444444 4 ** 44 * 4*44 

1.0000E-04 4444***44* *4**444444 4 * 4 * 4444*4 ** 444 ** 44 * 

7.00C0E-04 1.0000E-04 * 44 * 44444 * 4 * 4 * 4444 ** 4 * 4 * 4 * 44*4 

5 . 1000 E-03 7 . OOOOE-O A 2.0C00E-0A * 44444 * 44 * 4444 * 444*4 

A . 2000E-03 6 . OOOOE-03 5.0000E-0A 2.COOOE-OA *44444444* 

1 . AA30E-0 1 9.000CE-CA 7. 8C00E-03 3.0000E-0A 44***44444 

7 . 5000 E-03 1 . 7790E-0 1 2.0C00E-0A 1.1000E-02 4*444*4444 

5.7 B60E-01 2 . 1100E-02 2.1670E-01 A.80C0E-03 4***44444* 

9.1 800E-02 A . 31 90E-C 1 3.2000E-02 2.5A90E-01 ***444**44 

7.7000E-02 2.1000E-01 2.6890E-01 3.13C0E-02 4**444*44* 

7.90C0E-02 2 . 290CE-C2 3.23A0E-01 1.28C0E-01 4*4*44*44* 

44444*4444 4444*44444 44**4444*4 ********** ********** 
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DIATOMIC 
TRANSITION 
CN RED 


INOEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
3 


NUMBER 
SPECIFYING 
CATA LOCATION 
ON TAPE 
2 


SPECTCGRAPHIC CONSTANTS FOR A AND X STATES FROM PCLETTO ANC RIGUTTI» 
NAG VC CIMENTQ 39, P 519, 11965). 

8 STATE CATA FRCN HERZeERG EXCEPT WE AND WEXE WHICH WERE TAKEN FRCM 
DCUGLAS AND ROUTLY ASTROPHYS J. SUPP.l, P 295 (1959) 

SPIN CCUPLING CONSTANT A TAKEN FRCM HERZBERG WHICH IS CLOSE TO 

AVERAGE VALUE BY PCLETTC AND RIGUTTI'S 

THIS TRANSITION CCMPUTEC IN SUBROUTINE Sl2 PT;2 




LINE 

ALTERNATION 

FACTOR 

NUCLEAR SPIN NUMBER OF 

FOR HOMCNUCLEAR ELECTRONIC 

MOLECULES LEVELS 

REDUCED 

ATOMIC 

WEIGHT 




0 . 


0.0 


3 

6.9693 




SPIN 

CCUPLING 

CONSTANT 

QUANTUM NUMBER CF 

RESULTANT ELECTRONIC ANGULAR 

MOMENTUM A 8 CUT INTERNUC. AXIS 

ROTATIONAL 
CONSTANT 
DE, 1/CM 

ROTATIONAL 
CONSTANT 
BETA, 1/CM 

DISSOCIATION 

ENERGY 

DEZERO, 1/CM 

I NTERNilCLE AR DISTANCE 
AT EQUILIBRIUM 
POSITION, CM 

UPPER 

LCWER 

STATE 

STATE 

-52. 2C 
0.00 

1 

0 


0.59327C0E-C5 

0.6392000E-05 

-C.9296000E-07 

-C.957000CE-08 

0 . 5790000E 05 
0.6620000E 05 

C • 12 33200E-C7 
0.11719006-07 


ELECTRONIC ELECTRONIC 

CEGENERACY TERM ENERGY WE WEXE 

UPPER STATE 9 9.295399CE 03 1.8125550E 03 1.26C8600E 

LOWER STATE 2 C . CCC0000E-3 9 2.C687950E 03 1.3139000E 

2 2.57518CCE 09 2.168619CE 03 2.0200000E 


WEYE WEZE BE ALPHA E 

01 -1.1800000E-02 0.C000000E-39 1.71510C0E 00 1 . 70757CCE-02 
01 -5.5000000E-03 0 .0000000E-39 1.8992000E 00 1. 701 33C0E-02 
01 O.OCOOOOOE-39 C .00000006-35 1.97C10COE 00 2. 21 50C00E-02 


FR ANCK-CCNDON FACTOR 


VV 0 1 2 3 9 

V 

0 5.001 5 E-0 l 3,7 1 05E-01 1.1065E-C1 1.6700E-02 1.9000E-03 

1 3.1785E-C1 9.6000E-02 3.5275E-CI 2.2335E-01 5.3550E-02 

2 1.2685E-C1 2.9085 E— Cl 1.16C0E-C2 2.1355E-C1 2.8715E-01 

3 9.0200E-02 1.9920E-C1 9.9500E-C2 8.78C0E-C2 8.785CE-C2 

9 1 . 1100E-02 9.91C0E-C2 1.8115E-01 1.6150E-02 1.9890E-01 

5 2.8500E-C3 3.6150E-C2 1.3300E-C1 1.2280E-C1 1.8000E-03 

6 7. 5000E-09 1.2200E-02 6.7550E-C2 1.9155E-01 5.87C0E-02 

7 2. COOOE-C9 3 . 8000E— 03 2.81C0E-C2 5.50C0E-O2 1.2095E-C1 

8 5.COOOE-C5 1 • 1000E-03 1.0900E-02 9.8550E-02 1.C880E-01 

9 4**4444444 3 . 5000E-09 3.6000E-C3 2.1250E-02 6.8550E-C2 

XO 4444444444 1.0000E-04 1.1500E-C3 8.95C0E-C3 3.5300E-02 

XX 4444444444 4444*44444 3.5000E-C9 3.15C0E-03 1.6000E-02 

X2 4444444444 4444444444 1.5000E-C4 1.1000E-03 6.6500E-03 

13 4444444444 444*444444 5.0000E-C5 9.CCC0E-09 2.6500E-03 

14 4444444444 *444444444 444*44444* 1.5CC0E-C9 1.0000E-03 

15 444**44444 4444444444 4444*44444 5.0CC0E-05 9.0000E-C9 

16 444*4*4444 4444444444 444*444444 4*4444444* 1.5000E-C9 

17 4*44444444 4*44444444 * 4 ** 44 * 44 * *4*4444444 5.0000E-C5 

10 4444444444 4444444444 * 44444 * 44 * 4444444444 4444444444 

19 4444*44444 44 * 444444 * 4444444*44 444*4444*4 4444444444 


5 6 7 8 9 

1.0000E-09 4 * 44 ** 444 * 444 ** 4*444 *4*44*4*** 44****4444 

6.1500E-03 9.0000E-09 44444444 *4 **#44*4444 4444*4444* 

1.0265E-01 1 . 5900E-02 1.2500E-03 5.0000E-05 4*4444444* 

2.9990E-01 1 . 5665E-0 1 3.1300E-02 2.9500E-03 1.0000E-04 

1 .5950 E-0 2 2 . 66 8 5E-C 1 2.0665E-01 5.2850E-02 6.0000F-03 

1.59C5E-01 7 . 5000E-04 2.0690E-01 2.4545E-01 7.98C0E-02 

3.C400E-02 1. 2870E-C1 2.4000E-02 1.3855E-01 2.6755E-01 

1.5C50E-02 6.9600E-C2 8.0950E-02 6.3450E-02 7.77C0E-02 

8.4400E-02 1 . 5000E-04 9.7700E-02 3.6500E-02 1.G080E-01 

1.C680E-01 4. 5550E-C2 9.4500E-03 1.0500E-01 8.2500E-03 

8.3050E-02 9.0100E-02 1.6100E-02 3.1900E-02 9.2500E-02 

5.C2C0E-02 8.8800E-02 6.5150E-02 1.65C0E-03 5.58500-0? 

2.59C0E-02 6.3150E-C2 8.4400E-02 3.8350E-02 2.4000F-03 

1.2100E-02 3.7250E-02 7.1650E-02 7.1150E-C2 1.6500E-02 

5.3000E-03 1.9400E-C2 4.8250E-02 7.3650E-02 5.2650E-0? 

2.1500 E-0 3 8.3000E-03 2.8050E-02 5.7CC0E-02 6.8600E-C2 

8.5000E-04 4.2000E-03 1.4800E-02 3.7050E-C2 6.17C0E-02 

3.0000E-04 1.8500E-C3 7.3000E-03 2.1400E-0? 4.5050E-02 

1.5000E-C4 7.5000E-04 3.4000E-03 1.14E0E-C2 2.8700E-02 

4444444444 44*4*44444 **44*44444 44**444444 444*4*4444 


VV 1C 11 12 13 19 

V 

Q 4444444*44 44 * 444*444 * 444444**4 4444444*4* 44***44*44 

1 4444444444 * 4444 * 44*4 4444***444 44444*4444 44 * 4***444 

2 4*444*4444 4444444444 44444*4*4* 4*4444444* * 44444*4 44 

3 4444444444 4444444444 4444444444 44 * 444444 * 4 * 4 ** 4*444 

9 3.5000E-C9 * 44 ** 4 * 44 * 44 ** 4 * 4*44 444444 * 44 * * 4 * 444**44 

5 1.C7C0E-02 6.5000E-C9 44444 ** 4*4 44444444*4 4 * 444***44 

6 1.1070E-01 1.7650E-C2 1.2500E-C3 4444444444 444444*444 

7 2.72 75E-C 1 1.9315E-C1 2.7CCCE-C2 2.15C0E-03 1.0000E-09 

8 3 . 20 50E-C2 2.6055E-CI 1.7620E-01 3.91CCE-02 3. 5500E-03 

9 1. 2920E-C1 6.9500E-C3 2.3955E-CI 2.C66CE-01 5.3650E-C2 

10 2 . 5000E-09 1.2965E-C1 5.5000E-09 1.9850E-01 2.3255E-C1 

11 6.7800E-C2 9.7500E-C3 1.1835E-C1 6.C750E-02 1.5685E-C1 

12 7.2C50E-02 3.9750E-C2 2.59C0E-C2 9.5150E-02 3.17C0E-02 

13 1.9250E-02 7.6850E-C2 1.6550E-C2 5.2750E-02 6.660CE-C2 

19 3. 5C006-03 3.1250E-02 6.9850E-C2 3.2C00E-03 7.1750E-02 

15 3. 2750E-C2 7.5CC0E-C9 9.71C0E-C2 5.9350E-C2 9.5C00E-C9 

16 5.7600E-02 1.5750E-C2 6.7000E-03 5.7350E-02 3.5650E-02 

17 6 • 19 50E-C 2 9.2900E-02 9.60C0E-C3 1.83C0E-02 5.57CCE-02 

18 5.0650E-02 5.6000E-02 2.7C50E-C2 7.5CC0E-09 3.1950E-C2 

19 4444444444 444*444444 4444444444 *444444444 * 4444 ** 44 * 


15 16 17 18 19 

**44444444 4444444444 4444444*44 *444444444 4 ** 4*44444 
4444444444 44444444 ** 4444444*44 444444***4 *** 444444 * 
4444444444 4444444444 44 ** 4 * 44 ** 4444444444 444 ** 44**4 
44 ** 4 * 4*44 4444444444 4444444444 4444444**4 4444444444 
4444444444 *44444444* 4444444 * 4 * *** 444*444 444444444 * 
4444444444 4444444444 4444444*44 4*44***444 4***44*444 
4 * 444444*4 4444444444 4444444444 * 444444*44 4444444444 
4444444444 4444444444 44444444 ** 4444 * 4**44 4 * 444444*4 
1.5C00E-09 444*4*4444 444444444 * 4 ***** 4*#4 * 444444*44 
5.5000E-03 2.5000E-09 4444444444 4 * 4444*444 * 444 * 4444 * 
7 . 1 100E-02 8. 2500E-C3 3.5000E-09 44*444***4 ***4*4*4*4 
2.5155E-01 9 . 0900E-C2 1.1800E-02 6.0000E-09 444*44444* 
1 • 1955 E— 01 2.6965E— 01 1.1280E-01 1.6350E-02 *44*44*44* 
5.7550E-C2 7.5950E-02 2.6925E-01 1.35E5E-01 4*4*4444*4 
3.88 50 E— 02 8.2950E-02 9.3900E-02 2.6565E-01 *44444444* 
8.2500E-02 1.7000E-C2 1.0195E-01 2.0200E-02 *444444444 
8.9000E-03 8.3300E-C2 9.2000E-03 1.1325E-01 444*44**4* 
1.8150E-02 2 . 1950E-02 7.5050E-C2 1.10C06-03 4 * 444 ** 4*4 
5.9150E-02 5.9500E-03 3.7150E-02 6.02C0E-O2 4444***4*4 
4444444444 4 * 4*444444 4*4*44444* 4 ** 4 * 4444 * * 444 * 4**44 
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INDEX NC. NUMBER 

SPECIFYING SPECIFYING 

DIATOMIC SUBROUTINE DATA LOCATION 

TRANSITION USED IN CALC. ON TAPE 

C2SHAN 1 3 


SPECTCGRAPHIC CCNSTANTS FROM EALLIK AND RAMSAY ASTRCPHYS J. 137,1963 
EXCEPT FOR SPIN COUPLING CONSTANTS WHICH HERE TAKEN FRCM HERZBERG. 
RKR FRANC K-CONCCN FACTORS FROM SPINDLER JQSRT VOL. 5, P 195 (19651. 
THIS TRANSITION COMPUTED IN SUBROUTINE ZERO. 


LINE NUCLEAR SPIN NUMBER OF 

ALTERNATION FCP HCMONUCL E AR ELECTRONIC 

FACTOR MOLECULES LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


C. 


0.0 


10 


6.0019 


SPIN QUANTUM NUMBER OF ROTATIONAL ROTATIONAL DISSOCIATION INTERNUCLEAR DISTANCE 

COUPLING RESULTANT ELECTRONIC ANGULAR CONSTANT CONSTANT ENERGY AT EQUILIBRIUM 

CCNSTANT MOMENTUM ABOUT INTERNUC. AXIS CE, 1/CM BETA, 1/CM CEZERO, 1/CM POSITION, CM 

UPPER STATE -16.90 1 0 . OCOOOOOE-3 8 C.OOOOOOOE-38 0.2950000E 05 C . 1 266000E-07 

LOWER STATE -16.40 1 0 . OOOOOOOE-3 8 0 . OOOOOOOE-38 0.4890000E 05 0. 1 31 1900E-07 


ELECTRONIC ELECTRONIC 

CEGENERACY TERM ENERGY WE WEXE 

UPPER STATE 6 2.CC2250CE 04 1.7882200E 03 1.64400.00E 

LOWER STATE 6 7.1624000E 02 1.6413500E 03 1.1670000E 

1 5.5C3460CE 04 1.67150CCE 03 4.CC20000E 

1 4.3240230E 04 1.8295700E 03 1.3970000E 

6 4 . C7S6650E 04 1.1C656C0E 03 3.S260GCCE 

2 3.4261900E 04 1.8C91000E 03 1.581000CE 

3 1.33 12100E 04 1.S6160C0E 03 1.3850000E 

2 8.39 lOOOOE 03 1.6C83500E 03 1.2078000E 

3 6.4342700E 03 1.47045C0E C3 1.1190000E 

1 C.CCC0000E-39 1.85471C0E 03 1.334000CE 


WEYE WEZE BE ALPHA E 

01 -5.067000CE-01 0 . OOOOOOOE-39 1.7527000E 00 1 . 6080000E-02 
01 0 .OOOOOOOE-39 0. OOOOOOOE-39 1.63246C0E 00 1 . 661 0000E-02 
01 2.4 EC0000E-01 0 .COOOOOOE-39 1.7930000E 00 4. 2100000E-02 
01 0.0C00000E-39 0 . OOOOOOOE-39 1.8334000E 00 2. 0400000E-02 
01 2 . 8C50000E 00 0 .OOOOOOOE-39 1.1922000E OC 2.4200000E-02 
01 -4.0200000E 00 0 . OOOOOOOE-39 1.7834000E 00 1 . 8000000E-02 
01 O.OCOOOOOE-39 0. COOOOOOE-39 1.87COOCOE CO 0. 0000000E-39 
01 -1.0COOOOOE-C2 0. OOOOOOOE-39 1.61634C0E 00 1 . 6880000E-02 
01 2.0C00000E-02 C.OCOOOOOE-39 1.49e52C06 OC 1.6340000E-02 
01 - 1 . 7 200000E-C 1 0. COOOOOOE-39 1.8198400E 00 1 . 7650000E-02 


FRANCK-CCNCON FACTOR 


VV C 1 2 3 4 

V 

0 7.2130E-01 2.2Q60E-C1 4.76C0E-C2 8.80CCE-03 1.50C0E-C3 

1 2.5C60E-C1 3.3710E-C1 2.8030E-C1 9.9900E-02 2.5400E-02 

2 2.72COE-C2 3.7420E-C1 1.3ei0E-Cl 2.62ICE-01 1.3770E-C1 

3 e.CCOOE~C4 6 . 5900E— 02 4.2550E-C1 4.77C0E-02 2.1120E-01 

4 ********** 2 . 2000E-03 1.C550E-CI 4.4460E-01 1.4300E-02 

5 ********** ********** 2 . 8000E-C3 1.3410E-01 4.5850E-01 

6 ********** ********** 2.CCC0E-C4 1 . 9COOE-C3 1.492CE-01 

7 ********** ********** ********** 8.0C00E-04 l.COOOE-04 

8 ********** ********** ********** ********** 2. 10C0E-C3 

g ********** ********** ********** ********** ********** 

10 ********** ********** ********** ********** ********** 

11 ********** ********** ********** ********** ********** 

12 ********** ********** ********** ********** ********** 

13 ********** ********** ********** ********** ********** 

14 ********** ********** ********** ********** ********** 

15 ********** ********** ********** ********** ********** 

15 ********** ********** ********** ********** ********** 

17 ********** ********** ********** ********** ********** 

18 ********** ********** ********** ********** ********** 

19 ********** ********** ********** ********** ********** 


5 6 7 8 9 

2 • OOCO E-04 ********** ********** ********** ********** 
5.4000E-03 1.0000E-Q3 2.0000E-04 ********** ********** 
4.52006-02 1 • 190GE-02 2.7C0OE-O3 6.00C0E-04 l.COOOF-04 
1*5720 E-01 6.4700E-02 2.0200E-02 5.2000E-03 1.2000E-03 
1.5760E-01 1 • 5920E-01 7.8200E-02 2*79C0E-02 8.10C0E-03 
4*60006-03 1 • 1370E-01 1.5250E-01 8.3700E-02 3. 40006-02 
4*8310 E-0 1 4.2000E-C3 8*04006-02 1*40606-01 8.5800F-02 
1* 4130E-01 5*19206-01 1.0300E-02 5*68C0E-02 1.32206-01 
1* 7C006-G3 1 • 1030E-01 5.6C20E-01 3.06C0E-02 3.67C0E-C2 
3*20006-03 1 *21006-02 5. 85006-02 5.8190E-C1 7.96C0E-02 
****** 4 *** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 


VV 1C 11 12 13 14 15 16 17 18 19 

V 


C ********** ********** ********** ********** ********** 

1 ********** ********** ********** ********** ********** 

2 ********** ********** ********** ********** ********** 

3 2*CC0CE-C4 ********** ********** ********** ********** 

4 2.C0CCE-C3 4 .0CCCE-04 i*00C0E-C4 ********** ********** 

5 l.Ce0GE-02 2 • 90CCE-C3 6*OOOOE-C4 1.0CC0F-04 ********** 

6 3 • 75C0E-C2 1*26CCE-C2 3.50C0E-C3 8.0CCOE-04 ********** 

7 8 • 16CCE-02 3.89C0E-C2 1.35CCE-C2 3.9CC0E-O3 ********** 

8 1 • 2940E-0 1 7.27C0E-C2 3.79C0E-C2 1.32C0E-O 2 ********** 

9 1.84C0E-C2 1 • 34 60E-C1 5*95C0E-C2 3.55CCE-C2 ********** 

10 ********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

12 ********** ********** ********** ********** ********** 

13 ********** ********** ********** ********** ********** 

14 ********** ********** ********** ********** ********** 

15 ********** ********** ********** ********** ********** 

16 * * * ** * * * * * ********** ********** ********** ********** 

17 ********** ********** ********** ********** ********** 

18 ********** ********** ********** ********** ********** 

19 ********** ********** ********** ********** ********** 


********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 
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DIATOMIC 

TRANSITION 

OH3060 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USEC IN CALC. 
3 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
A 


SPECTCGR APH IC CONSTANTS FROM HERZBERG. 

MORSE FRANCK-CON CON FACTORS ASTROPHYS 4. P 55 (1955) 
THIS TRANSITION COMPUTED IN SUBROUTINE 52 PI2. 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FCR HCMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


0.0 


2 


0.9484 


SPIN 

CCUPL ING 
CONSTANT 


UPPER STATE C.00 
LCWER STATE 139.99 


OUANTUM NUMBER GF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 

MOMENTUM ABOUT INTERNUC. AXIS CE, 1/CM 


ROTATIONAL 
CONSTANT 
BETA, 1/CM 


DISSOCIATION INTERNUCLEAR DISTANCE 

ENERGY AT EQUILIBRIUM 

DEZERO* 1/CM POSITION, CM 


C 

1 


O.OOOOOOOE-38 

O.OOOOOOOE-38 


C.OOOOOOOE-38 

C.OOOOOOOE-38 


0 .OOOOOOOE-38 
0.3510000E 05 


C.1C12100E-07 

C.9T06000E-08 


ELECTRONIC 
CEGENEP ACY 

UPPER STATE 2 

LCWER STATE 4 


ELECTRONIC 
TERM ENERGY 

3.268250CE 04 
O.OOOOOOOE-39 


WE 

3.18056C0E 03 
3.7352100E 03 


WEXE 

9.4930000E 01 
8 . 2810000E 01 


WEYE 

-6.41C0CC0E-01 

O.OOOOOOOE-39 


WE ZE 

O.OOOOOOOE-39 

O.OOOOOOOE-39 


BE 

1 • 735 50CCE 01 
1 • 887 1000E 01 


ALPHA E 

8.0700000E-01 

7.1400000E-01 


VV C 1 2 


V 

C 9. C700E-01 

1 8 . 60CGE-C2 

2 6 . C000E-C3 

3 ********** 

4 ********** 

5 ********** 

6 ********** 
7 ********** 
g ********** 

9 ********** 

10 *********4 

11 ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 

19 ********** 


8.9000E-02 
7 . 1600E-01 
1 . 6SC0E-01 

2 • 3000E-C2 

3 .CCCOE-C 3 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


3 .00CCE-C3 
l . 86COE-0 1 
5 . 14C0E-C 1 
2 • 37C0E-C1 
5 . 4CCCE-C2 
7.0000E-C3 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


FRANCK— CCNOON FACTOR 
4 5 


3 

********** 
1 . 20C0E-02 
2. 80CCE-01 
3.2 100E-01 
2. 53C0E-01 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 

********** 

3.2000E-02 
3. 2900E-01 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


6 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


7 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


8 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


9 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


VV 10 
V 

0 ********** 

1 ********** 
2 ********** 

3 ********** 

4 ********** 

5 ********** 

6 ********** 

7 ********** 

g ********** 
g ********** 

10 ********** 
11 ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 
ig ********** 


11 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


12 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


13 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


14 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


15 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


16 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


17 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


18 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


19 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


85 



DIATOMIC 
TRANSITION 
CO 4 + 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
2 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
5 


SPECTCGRAPHIC CONSTANTS FROM HEPZBERG. 

MORSE FRANCK-CONCCN FACTORS BY NICHCLLS REF JQSRT 2 <1962) 

THIS TRANSITION CCMPUTEC IN SUBROUTINE ONE 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FOR HOMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


0.0 


1 1 


6 . 85 66 


SPIN 

COUPLING 

CONSTANT 


QUANTUM NUMBER OF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 
MOMENTUM ABOUT INTERNUC. AXIS DE . 1/CM 


ROTATIONAL 
CONSTANT 
eETA, 1/CM 


DISSOCIATION INTERNUCLEAR DISTANCE 

ENERGY AT EQUILIBRIUM 

DEZERO, 1/CM POSITION, CM 


UPPER STATE C.00 

LOWER STATE 0.00 


1 

C 


O.OOOOOOOE-38 
0 . OOOOOOOE-38 


C .0000000 E— 3 8 
O.OOOOOOOE-38 


C.OOCOOOOE-38 
0. 8860000E 05 


C. 1235100E-07 
0.1128190E-07 


ELECTRONIC ELECTRONIC 

CEGENERACY TERM ENERGY WE 


WEXE WEYE 


WEZE 


BE 


ALPHA E 


UPPER STATE 2 

LOWER STATE 1 

2 
3 
1 
1 
1 

fc 

3 

6 


6.5074800E 04 
0.00000006-35 
8.88C5000E C4 
9.31578CCE 04 
5. 2928000E 04 
9. 15260CCE 04 
8 . 6548000E 04 
8.38 C4000E 04 
6.2259400E 04 
5.59C1000E 04 
4 . 86 8 75 50 £ 04 


1 .5 156100E 03 
2.1702100E 03 
2 .1 120000E 03 
C . CG00C00E-39 
2 . 13400COE 03 
2.1330000E 03 
2.08207C0E 03 
2 . 1980000E 03 
1 . 1377900E 03 
1 . 2 1800C0E 03 
1.7392500E 03 


1.7250500E 01 
1.3461 OOOE 01 
1. 5800CCCE 02 
0.0000000E-39 
0. CC00000E-39 
0. CCOOOOOE -39 
C.0000000E-39 
O.CCCOOOOE-39 
7. 62400CCE 00 
9.5C00CCCE 00 
1 . 447000GE 01 


0 .OCCOOOOE— 39 
3.0800000E-02 
C.0C00000E-39 
0 . 0C00000E-39 
C.OCOOOOCE-39 
O.OCOOOOOE-39 
C . OCOOOOOE-39 
C .CC00000E-39 
- 1 . 1 25000 0E-C 1 
C. 0C00000E-39 
O.OCOOOOOE-39 


O.COOOOOOE-39 
0. OOOOOOOE-39 
0.0000000E-39 
0. OOOOOOOE-39 
0. OOOOOOOE-39 
O.COOOOOOE-39 
0. OOOOOOOE-39 
O.COOOOOOE-39 
0. OOOOOOOE-39 
0. OOOOOOOE-39 
0. OOOOOOOE-39 


1.61 16000E 00 
1.9313900E 00 
0 . OOCOOCCE-35 
1 . 9 5 630C0E 00 
0. OOOOOOOE-39 
1 . 9422000E 00 
1.9610000E 00 
2.0750000E 00 
1 • 2615000E 00 
1. 3310000E 00 
1 . 68 1 OOCOE 00 


2 . 2290000E-02 
1.7485000E-02 
0. OOOOOOOE-39 
0. OOOOOOOE-39 
0. 0000000E-39 
0. OOOOOOOE-39 
2. 70000C0E-02 
3. 3000000E-O2 
1 . 7000000E-02 
1 . 6000000E-0? 
1 . 9300000E-02 


FR ANCK-CCNDGN FACTOR 



VV C 

l 

2 

3 

4 

5 

6 

7 

8 

9 

V 

0 

1.1319 E-01 

2.6C87E-C1 

2.8477E-C1 

1.9629 E-01 

5.6040E-02 

3. 5535 E-02 

1.C340E-02 

2 . 4282E-03 

4. 6859E-C4 

7 . 5264E-05 

1 

2. 1614E-C1 

1 . 5487E-01 

3 . C5C8E-C 3 

7.6435E-02 

1.9313E-01 

1.8569E-01 

1 . 0829E-01 

4.4465E-02 

1 .3804E-02 

3. 3745E-03 

2 

2. 2997E-C 1 

1.21 79E-C2 

9 . 0 126E-C 2 

1. 16C7E-01 

5. C832E-C3 

5.7179 E-C2 

1.6502E-C1 

1. 6681E-01 

9.8629E-02 

4. 1314F-02 

3 

1.8128 E— 0 1 

2.0453E-G2 

1 . 17C4E-C 1 

6.4 5 36E-04 

8. 9569E-02 

8 . 4 1 57 £-02 

4. 7128 E-04 

6.7660E-02 

1 . 5884E-01 

1.4862E-01 

4 

1 . 1879E-C1 

8.72 85E-C2 

3.4433E-C2 

5 . 7630E-02 

6.6561 E-02 

6. 1711E-03 

9.8034E-02 

5. 1406E-02 

2.72C2E-03 

8.8U0E— 02 

5 

6 . 6846E-C2 

1.23C4E-C1 

3. 2357E-04 

9. 1254E-02 

1. 3841E-C5 

8.2 359 E-02 

2.2684E-C2 

3. 1553E-C2 

9.4377E-02 

2.1092E-02 

6 

3.6675E-C2 

1. 1603E-01 

3.2109E-C2 

4.220 IE-02 

4. 2898E-02 

4.2 265 E-02 

2. 1776E-02 

7.2885E-02 

5 . 8 3C4E-04 

6.3519E-02 

7 

1. e429E-C2 

8 . 80 57 E— 02 

7.3469E-02 

2. 2336E-03 

7. 38S6E-02 

4 . 26 68 £-0 5 

6.8877E-C2 

2. 9021E-03 

5.81 8 IE-02 

3.7499E-02 

8 

8* 6S74E-C3 

5 .8371E-02 

9 .C572E-C2 

S.8S94E-03 

4.4622E— 02 

3.2779E-C2 

2.8742E-02 

3.0612E-02 

4 . 2672E-02 

9.8388E-03 

9 

4.1842E-03 

3. 5370E-C2 

8.4527E-C 2 

4,06 27E-02 

7. 5687E-03 

6.0808 E— 02 

3.8286E-05 

5 . 8344E-02 

1.6689E-05 

5 . 88 79E-02 

10 

1.9367E-03 

2.0162E-C2 

6 .6327E-02 

6.4755E— 02 

1.4618E-03 

4 . 5052 E-02 

2.4181E-C2 

2 . 37 31E-02 

3 . 2522E-02 

2.3741E-02 

11 

8.8941E-04 

1 .1C24E-C2 

4 .6641E-C2 

7 . 175 IE-02 

1 . 9480E-02 

1 .45C4E-02 

4.9695E-02 

1. 1030E-05 

4 • 8442E-02 

1.0943E-0? 

12 

4.C787E-C4 

5.8643E-03 

3.C446E-C2 

6.5C86E-02 

4. 1768E-02 

1.7143 E-04 

4.4180E-C2 

1.6298 E-02 

2.1 5 84E— 02 

3 . 02C4E-02 

13 

1.87 73 E— 04 

3.0666E-03 

i.eeeiE-C2 

5. 2C41E-02 

5. 5313E-02 

6.7201 E-03 

2.G995E-C2 

3 . 9190E-02 

4. 2287E-C4 

4.2R77E-02 

14 

e. 7C84E-05 

1 . 5891E— 03 

1.13C4E-02 

3.82 23E-02 

5. 7629E-C2 

2.3102E-02 

3.3642E-C3 

4. 1680E-02 

9 . 20C1E-03 

2 . 1882E-0? 

15 

4.C846E-C5 

8. 2117E-C4 

6. 6118 E— 03 

2.6471E-C2 

5. 1936E-C2 

3.7873 E-02 

7 . 3801E-C4 

2 • 661 5 E— 02 

2.86 17E-02 

I.9365E-03 

16 

1.5425E-05 

4.2525 E-04 

3.8121E-C3 

1.7 557E-02 

4.2 528E-02 

4.5827 E-02 

9.4788E-C3 

9. 4220E-C3 

3 . 6896E-02 

3 . 5232E-03 

17 

9.3E67E— 06 

2.2157E-C4 

2.18 16E-C3 

1. 1373E-C2 

3.2 596E-C2 

4.6731 E-02 

2 . 1795E-C2 

6. 1450E-04 

3.0 I 43E-02 

1 . 8049E-02 

18 

4.6172E-C6 

1. 1653E-C4 

1. 2459E-C3 

7. 2159E-03 

2. 3851E-02 

4 . 2 5 74E-02 

3 . 1 81 8E-02 

1 . 6937E-03 

1.6581E-02 

2 . 9379 E-02 

19 

********** 
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********** 

********** 

********** 

********** 


VV 1C 


11 12 


14 


16 


17 18 


19 


V 


C 

1.015 1 E-0 5 

1.1568E-06 

1.1161E-C7 

8. 1868 E— 09 

6.4215E-1C 

3.7782 E- 11 

1.8874E-12 

8.6394E-14 

1.8682E-15 

1. 7458E-16 

1 

6. 6637E-04 

1.C812E-C4 

1 ,45 79E-C5 

l. 6462E-06 

1. 5635E-07 

1.2525E-08 

8. 4721E- 10 

4. 8179E-1 1 

2 . 2816E-1 2 

8. 8683E-14 

2 

1.283IE-C2 

3. 1152E-C3 

6 . C724E-C4 

9.6710E-05 

1.2731E-C5 

1. 3857 E- 06 

1.2800E-07 

9.8388E-08 

6.3250E-10 

3.4137E-11 

3 

8. 4545 E-02 

3.3725E-C2 

1 .0112E-C2 

2 • 37 17E-03 

4. 462 IE-04 

6.8445E-05 

8 . 6524E-06 

9 . 0748E-0 7 

7 . 9258E-O0 

5. 7731E-09 

4 

1.56 78E-C 1 

1.2914E-C1 

6.7610E-C2 

2. 5283E-02 

7. 1696E-C3 

1 .5970E-03 

2.8572E-C4 

4. 1658E-05 

4 . 9963E-06 

4.9572E-07 

5 

l.eC2IE-02 

1. 1289E-C1 

1.5C85E-C1 

1. C7e4E-01 

5. 1173E-02 

1 • 7696 E-02 

4.6884E-C3 

9. 8077E-04 

1 . 65 1 5E-04 

2.2666E-05 

6 

7.2827E-02 

2.4331 E— 0 3 

4.547 1E-C2 

1.3211 E— 01 

1.3855E-01 

8 . 5849 E-02 

3.67C7E-02 

l . 16 5 4 E-0 2 

2. 8628E-03 

5. 5R19F-04 

7 

1.C1C4E-C2 

fi .2806E-02 

4.C479E-C2 

2.74C2E-C3 

7. 8643E-02 

1 .4142E-01 

1. 2C17E-C1 

6.4922E-0 2 

2.49P0E-02 

7 . 25 32 E-03 

8 

6.8218E-02 

6.0762E-C3 

4.0752E-C2 

7.78 72E-02 

1.1842E-C2 

2 . 24 24E-02 

1.G892E-01 

1. 3911E-01 

9 . 8285E-02 

4.66C7F-02 

8 

5. 8671E-03 

4.3489E-02 

4.4543E-C2 

2 . 4 546 E— 03 

6.8276E-C2 

5.2619 E-02 

1.8350E-05 

5. 47556-02 

1 . 2915E-0 1 

1 . 2656F-01 

10 

2 . 4797E-02 

4. 1697E-02 

4 • 7082E-03 

6.2 1 78E-02 

1.2255E-C2 

2.62C2E-02 

7 • 6757E-02 

2 . 1822E-02 

1 .0029E-02 

8.9341E-02 

11 

4.9911E-C2 

5.751 1 E-C £ 

5 . 1872E-C2 

8.4825E-03 

3 . 3 5 23 E-C 2 

4.8135E-02 

1 . 3307E— 04 

5 • 7C40E-02 

6 . 00 84 E-02 

2 . 24C4F-03 

12 

1.4383E-C2 

3.1435E-C2 

2.C623E-C2 

2.C729E-C2 

4.0879E-02 

1 . 8786E-03 

5.6287E-02 

1.8132E-C2 

1 .6182E-02 

7.2885E-C? 

13 

1.7178E-C3 

4. 10C4E-02 

2.1 2 72E-C3 

4.4581 E— 02 

6. 1243E-C6 

4.6549E-02 

1.1 1 48 E-02 

2 . 5596E-02 

5.C261E-02 

4.4292F-04 

14 

2.E544E-C2 

1 .06 72E-C2 

3 . 1550E-C 2 

1.C1C1E-C2 

2.84C6E-G2 

1.8578 E-0 2 

1 .6848E-C2 

4.0 813E-02 

4.41 28E-04 

5.0304E-02 

15 

3.7613E-C2 

1. 2C81E-C3 

3.4831E-C2 

4.CC14E-C3 

3 . 5446E-02 

2. 3548 E-03 

4.1117E-02 

1 . 5883E-C4 

4 . 1675E-02 

I .45 35E-02 

16 

2.3565E-C 2 

1 . 8485E-02 

1.C192E-02 

2.8332E-02 

6. C848F-0? 

3.0450 E-02 

8.6642E-03 

2.6350E-02 

2.0329E-02 

1.2562E-02 

17 

5. 1274E-C3 

3 . 2 376E-C2 

2.6812E-C4 

3. 1077E-02 

3.7993E-C3 

2. 8188 £-02 

4. 8212 E-03 

3 . 2361E-02 

1.7C42E-03 

3.R687E-02 

18 

3.25 16E-04 

2 . 54 75E-C2 

1.2637E-C2 

1. 1S64E-02 

2.3360E-C2 

5 . 3 800 E-0 3 

2.7723E-02 

4. 6775E-03 

2 . 7816E-02 

9. 2564F-03 

18 
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86 



DIATOMIC 
TRANSITION 
N2* 1- 


INDEX NO. 
SPEC I EYING 
SUBROUTINE 
USED IN CALC. 
I 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
6 


SPECTCGRAPH IC CONSTANTS FROM HERZBERG. 

MORSE FRANCK-CONCCN FACTORS 
NBS VOL 65A 1961 F451 

THIS TRANSITION COMPUTED IN SUBROUTINE ZERO 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FCR HOMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED- 

ATOMIC 

HEIGHT 


1.0 


7.0036 


SPIN 

CCUPL ING 
CONSTANT 


QUANTUM NUMBER OF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 
MOMENTUM ABOUT INTERNUC. AXIS DE, 1/CM 


ROTATIONAL 
CONSTANT 
BETA, 1/CM 


DISSOCIATION INTERNUCLEAR OISTANCE 

ENERGY AT EQUILIBRIUM 

CEZERO, 1/CM POSITION, CM 


UPPER STATE C.00 

LCWER STATE 0.00 


C 

C 


0 . OOCOOOOE-3 6 
O.OOOOOOOE-38 


C.OOOOOOCE-38 

0.0000000E-38 


0 .OCCOOOOE- 38 
0. 7C39000E 05 


0. 1C75000E-07 
0. 1 1 16200E-07 


ELECTPCNIC 

ELECTRONIC 



DEGENERACY 

TERM ENERGY 

WE 

WEXE 


ALPHA E 


UPPER STATE 2 

LOWER STATE 2 

2 


2.546150CE 04 
C • CCOOOOOE-39 
6.46220CCE 04 


2 .4 1984QGE 03 
2.2C71900E 03 
2 . C 500CC0E 03 


2.3 19000CE 01 
1.61 36000E 01 

0. CCOOCOCE-39 


-5.3 7500CCE-0 1 
-4.0 000000 E-02 
C.0C00000E-39 


0 . OOOOOOOE-3 9 
O.OOOOOOOE-39 
O.COOOOOOE-39 


2 . 0830000E 00 
1.9322000E 00 
1.6500000E 00 


1 . 9500000E-02 
2. 0200000E-02 
5 . 00C00C0E-O2 


FRANCK-CONDON FACTOR 


VV C 
V 

C 6.5C94E-01 

1 3.0144E-C1 

2 4.5271E-02 

3 2.2475E-03 

4 1.4521E-C5 

5 4 • 6340E-C7 

6 5.48 1SE-C9 

7 6.4377E-1C 

8 4. 19S8E-13 
5 1.2746E-12 

10 3.5487E-14 

11 2. 8767E-16 

12 5.2594E-16 

13 7.4212E-2C 

14 1.7188E-16 

15 1.84C7E-16 

16 1.E155E-17 

17 9.5257E-17 

18 3.2282E-16 
IS 3.C466E-16 


1 


2. 5883E-C 1 
2 • 2260E-0 1 
4.C5S9E-C1 
1.0 5 62E-0 1 
6 . S3 53E-C3 
3.9858E-C5 

3. 08 77E-CC 
3.41 69E— 08 
5 . 755 2E-C9 
3.8766E-12 
1.0275E-11 
6.9S97E-13 
2.4906E-15 
S .9 105E-16 
S . 8S52E-1 7 
4.C381E-17 
5.4575E-1E 
1.3459E-16 
6.4620E-16 
6.7846 E— 16 


2 


7 .C162E-02 
2.8598E-C1 
5 .C6 46E-C2 
4. 1372E-C1 
1 . 66C4E-C 1 
1 .33S5E-C2 
5.7286E-C5 
1. 1319E-C5 
4.S5C6E-0E 
2.6591E-C8 
1 .7CS6E-10 
3. 8767E-1 1 
5.55S8E-12 

1 . COS IE-1 3 
1.3821E-15 
2.6642E-15 

2 . 8 290E- 15 
1 . 33C6E-15 
2.7374E-17 
1 . 1417E-16 


3 


1.5 SS7E-02 
1 . 3242E-01 
2.2SC1E-01 
2. 1CC5E-03 
3.7522E-01 
2.2051E-01 

2. C6S1E-02 
4. 92S8E-05 
3. 0C55E-C5 
1 . 7424E-08 
8 . 3563E-08 
1.6762E-09 
7. 8486 E— 11 
2. 7547E-11 
S.S713E-13 
3.0S60E-15 
6.56 16E- 15 
1. 5689E-15 

3. C826E-15 
2. 9C53E-1 5 


3.2972E-C3 
4.2726E-02 
1 • 6535E-0 1 
1 . 5566E-01 
6. 7256E-C3 
3. 3100E-01 
2.6731E-C1 
2 . 7894E-02 
1. 8070E-C5 
6.4203E-05 
3. 2950E-C8 
1. S686E-C7 
S. 1842E-09 
5.7016E-11 
9. 4783E-1 l 
7.6533E-12 

2. C529E-14 
5. 3219E-14 
7.68C8E-15 
3. 1337E-17 


5 


6 . 3420E-04 
1.1403E-02 
7.1 133E-02 
1 • 7C60E-0 1 
S.2SC1E-02 
2.9248 £-02 
2.83C4E-C1 
3.0677E-01 
3.4188E-02 
1 . 0666E-06 
1 . 1610E-04 
6 . 7150E-07 
3.5S33E-07 
3 . 5 189 E-0 8 
1.3391E-11 
2 . 2485 E- 10 
3.6688E-1I 
1 .1348E-12 
4.8177E-14 
7.S9S4E-14 


6 


1. 1549E-04 
2.699RE-03 
2. 3623E-C2 
9.4514E-02 
1 .5692E-01 
4.8153E-02 
5.3 307E-02 
2.4145E-01 
3.4009E-01 
3 . 8904E-C2 
8.0941E-05 
1.8230E-C4 
3. 5224E-06 

4. S932E-07 
1.0410E-C7 

1. I384E-C9 
3.6I22E-10 
1 . 2484E- 10 
8. 8436 E— 12 
3. 1504E-14 


1 . 9998E-05 
5 . 8613E— 04 
6.6S08E-03 
3 . 8C08E-02 
1 . 0964E-01 
1 . 3327E— 0 1 
2.0444E-02 
7 . 2364E-02 
2 . 0830E-0 1 
3. 6856E-01 
4. 1527E-02 

3.R725E-04 
2.5C89E-04 
1. 1720E-05 
4.7645E-07 
2. 4797 E— 07 
8.9261 E-09 
2 • 8360E- 1 0 
3.2815E-10 
4. 3885E-1 1 


8 


3 . 2805E-0 6 
1.1 849E— 04 
1 .6951F-C3 
1 .2612E-02 
5.2363E-02 
1 • 16C6E-01 
1.C647E-01 
5. S387E-03 
8 .4684E-02 
1 . 8373E-0 1 
3.9326E-01 
4. 17C4E-02 
1.C871E-C3 
3.0 1C2E-04 
3 . 0048E-05 
2.0416E-07 
4 . 82C0E-07 
3.895 7E-C8 
2.0518E-15 
6. 1538E-10 


9 


5.0335E-07 
2.2393E-05 
3.9336E— 04 
3.6675E-03 
2.0033E-0? 
6.4883E-02 
1. 1499E-01 
8 . C835E-02 
4.7434F-04 
9. 0654E— 02 
1.6717E-01 
4. 1493E-01 
3.9276E-02 
2. 3614E-03 
3.C712E-04 
6. 39S8E-05 
1 . 5601F-08 
7 . 5 533E-07 
1 . 2246E-07 
1. 8664E-09 


VV 10 
V 

0 7.C274E-CE 

1 3.S313E-06 

2 8.4449E-C5 

3 9. 63 86E-04 

4 6. 5985E-C3 

5 2. 8257E-02 

6 7.4424E-C2 

7 1.C837E-C1 

8 5 . £ 649E-02 

9 5.5515E-C4 

10 9 . 1407E-02 

11 1.5792E-01 

12 4 . 33 79E-01 

13 3.4320E-02 

14 4. 3643E-03 

15 2.4992E-C4 

16 1 • 17 1 4E-C4 

17 1.3451E-06 

18 9.CC82E-07 

19 3.C166E-07 


11 12 


8.4194E— CS 
6.2862E-07 
1.6754E-C5 
2. 3237E-C4 
1.S422E-03 
1.C429E-02 
3 .6515E-02 
8.05C8E-02 
S.8214E-02 

4 .07 5 l E-02 
3.6040E-C3 
8 . 8 1 80 E-02 
1.5540E-C1 
4.4957E-C1 

2 . 7 223E-02 
7 . 1648E-03 
I.3548E-04 
1 • 8672E-C4 
7.5652E-C6 
6.8357E-C7 


7.4 7C6E- 10 
8 . 7554E-C8 
3.C3C5E-C6 
5 . 1559E-C5 
5 . 20 74E-C4 
3.4C58E-C3 
1 .4962E-C2 
4.4113E-C2 
8.3188E-02 
8.6284E-02 
2 . 71 C 1 E-0 2 
7 . 89 56 E-C 3 
8 . 2045E-C 2 
1. 5933E-C1 
4.6145E-01 
1 .8762E-02 
1 .C676E-C2 

2. C326E-C5 
2 . 58 70E-C4 
2.4387E-C5 


13 

2. 7246E-11 
S. 5331E-09 

4.83 1 3E-07 
1 • C4 40E-05 
1. 28C7E-04 
1. C071E-03 
5.378 1 E-03 
1.9S12E-02 
5 . C528E-02 
8.2879E-02 
7. 3930 E-02 
1.71S5E-02 
1.2382E-C2 
7,38 38E-02 
1. 6967E-01 
4. 68C8E-01 
1.0 1 78E-02 
1.45 £6E— 02 
3.54S5E-05 
3. 0557E-04 


14 

1.5572E-12 
5.6580E-10 
6.2656E-C8 
1. 8810E-06 
2.8771E-C5 
2.7242E-04 
1.7413 E-03 
7, 8225E-0 3 
2. 49 5 3E-C2 
5. 5439E— 02 
8.0178E-02 
6.2084E-C2 
l . 0 343E-C2 
1.6506E-C2 
6 , 4180E-02 
1.8661 E-0 1 
4.6761E-01 
3. 2C73E-C3 
1.8313E-C2 
3.9546E-04 


15 

5.7438E-12 
2 . 7584E- 13 
5 .2243E-09 
2.8382E-07 
5.7951 E-06 
6.7369 E— 0 5 
5 . 1455E-C4 
2.7S56E-03 

1 .0647 E-02 
2. 9771 E-02 
5. 8721 E-02 
7 . 5740E-02 
5 . 1 31 2 E-02 

5.83 79 £-0 3 

2 .0049E-02 
5.3 547E-02 
2 . 1044 E-0 1 
4.5788 E-01 
1.9S48E-05 
2.1C29E-02 


16 

4.C732E-12 
4.1016E-11 
5.5G97E-11 
3 . C499E-08 
5.5985E-C7 
1 .5032E-05 
1 • 39 1 2E-04 
8.8413E-04 
4.C574E-C3 
1.3721E-C2 
3 .4099E-02 
6.0410E-C2 
7 . C 1 85E-02 
4.1892E-02 

3 . C4 33E-C3 
2.3010E-C2 
4.2359E-02 
2.4131E-01 

4 • 3662E-0 1 

3.CC89E-C3 


17 

1 .9329E-12 
3 . 8757E-1 1 
1 . 2S27E-10 
1 . 1 388E-09 
1 . 3165E-07 
2. 9233E-06 
3.41 14E-05 
2.5973E-04 
1 . 4059 E-03 
5.6271 E-03 
1 . 6889E-02 
3.7741 E— 0 2 
6 . 0656E-02 
6 . 4044E-02 
3. 3901E-02 
1 . 4302E-03 
2. 5526E-C2 

3. 1C69E-02 
2. 7903E-01 

4. C194E— 01 


18 

7 .49 346- 1 3 
2.11 56E-1 1 
1.8980E-10 
I .9308E-10 
8.80C2E-05 
4 . 5566E-0 7 
7.392 5E-06 
6.55 1 3E-0 5 
4 .46 32E-04 

2 .09 536-03 
7.41916-03 
1 .5954E-02 
4.0577E-C2 
5 . 5684E-02 
5 . 7743E-0 2 
2.7284E-02 

5 . 84 39E-04 
2.7824E-02 
2.0265E-02 
3. 22676-01 


19 

2. 47C9E-13 
9. 2253E-12 
1 • 2444E- 10 
5 . 96 79E-10 
5.3633E-I1 
4.41 1 3E— 08 
1 . 3 305 E— 06 
1. 66266-05 
1 . 2957F-04 
7. 1529E-04 
2. 95556-03 
9. 3675E-03 
2.2892E-02 
4 . 2558E-C2 
5.77466-02 
5 . 1592E-02 
2. 1907E-02 
1. 9790E-04 
3. C199E-0? 
1 .07506-02 
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DIATOMIC 
TRANSITION 
N2 1 + 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
2 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
7 


SPECTCGRAPH IC CONSTANTS FROM HERZBERG 

MORSE FRANCK CONCCN FACTORS 

NBS VOL 65 A NC 5 1961 PAGE 451 

THIS TRANSITION COMPUTED IN SUBROUTINE CNE 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FCR HOMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


1.0 


1C 


REOUCEO 

ATOMIC 

WEIGHT 

7.0038 


SPIN 

COUPLING 

CONSTANT 


UPPER STATE C.OC 

LOWER STATE 0.00 


QUANTUM NUMBER OF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 
MOMENTUM ABCUT INTERNUC. AXIS CE, 1/CM 


ROTATIONAL 
CONSTANT 
BETA, l/CM 


O.OOOOOOOE-38 C.0C00000E-38 
O.OOOOQOOE-38 C . 0000000E-38 


DISSOCIATION 

ENERGY 

OEZERCf 1/CM 

C.00C0000E-38 

0.00C0000E-38 


INTERNUCLEAR DISTANCE 
AT EQUILIBRIUM 
POSITION, CM 

C . 12 123C0E-07 
0 . 1293 000E-07 


ELECTRONIC 

CEGENERACY 

UPPER STATE 6 

LOWER STATE 3 

1 

3 

6 

2 

2 

1 

1 


ELECTRONIC 
TERM ENERGY 

5.S6263CCE 04 

5. C206000E 04 
S.9327000E 04 
9.7584000E 04 
9 . 57700CCE 04 
8 • 9 14730CE 04 
6.9290000E 04 
6.3943000E 04 

6 . CCOOOOOE 04 
C.CCC0000E-39 


WE 

1.734110OE 03 
1.4603700E 03 
6.7COOCCOE 02 
C .CCOOCCOE-39 
2 . 18450COE 03 
2.C351000E 03 
1.69201 COE 03 
1.5601000E 03 
1.5270CC0E 03 
2.3596 1C0E 03 


WEXE 

1.447000CE 01 
1. 3891000E 01 
C.COCCOOOE-39 

0. C000000E-39 
C.CCOOOOOE-39 
1 • 7 C80000E 01 
1.27910CCE 01 
1.1900000E 01 
1. 15000CCE 01 
1.4456000E 01 


WEYE 

C.OCCOOCOE-39 
-2. 5C00000E-02 
C.CCOOOOOE-39 

O.OOOOOOOE-39 
C.CCOOOOOE-39 
-2.1 500000E 00 
-3.4 E90000E-01 
O.OCOOOOOE-39 
C.OOOOOOOE-39 

7.5 100000E-03 


WEZE 

C.COOOOOOE-39 
O.OOOOOOOE-39 
C.COOOOOOE-39 
O.OOOOOOOE-39 
0 . OOOOOOOE-39 
0 .OOOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
-5.0900000E-04 


BE 

1 . 63 8C0C0E 00 
1 . 4400000E 00 
1 . 4600000E CO 
0 . OOOOOOOE-39 
O.OOOOOOOE-39 
1 . 8259000E 00 
1.6370000E 00 
O.OOOOOOOE-39 
1.4800000E 00 
2.01000CCE 00 


ALPHA E 

1. 8400000E-02 
1 .3000000E-0? 
O.OOOOOOCE-39 
0. OOOOOOOE-39 
O.OOOOOOOE-39 
1 . 9700000E-02 
2.2400000Et-02 
0. OOOOOOOE-39 
1 .50000006-02 
1 . 8700000E-02 


VV C 
V 

0 3.3816E-01 

1 4 . 0645E-0 1 

2 1.S746E-01 

3 5.C143E-02 

4 7. 19C5E-C3 

5 5.871 3 E-C4 

6 2.6156E-C5 

7 5.6982E-07 

8 4.7221E-C9 

9 6 . 5C75E- 12 
1C 2.78C2E-15 

11 8.1140E-16 

12 2. 5148 E- 16 

13 S.S625E-17 

14 3.4245E-16 

15 1.7C05E-16 

16 5 . 1720E-18 

17 2.C782E-16 

18 1. 8889 E- 16 

19 1.0678E-17 


1 

3.2480E-C1 
2 . 31QOE-C3 
2. 1203E-C1 
2. 9871E-C1 
1. 3180E-C1 
2.72 86E-C2 
2.924 8E-C3 
1.6132E— 04 
4.1737E-C6 
3. 9626 E- 08 
6.C552E-11 
3.3224E-14 
5 . C349E- 16 
1 . 6620E-16 
4.4756E-17 
2. 5344E-16 
7.4160E-17 
1.S676E-17 
1.2423E-16 
1 . 1379E- 16 


2 

1 .8996E-C 1 

1. C321E-01 
1 . 1320E-C 1 
3 . 8683E-C2 
2.7381E-C1 

2. 1065E-0 1 
6.1481 E-C 2 
8.4620E-C3 
5.6752E-C4 
1.7188E-C5 

1 .8482E-C7 

3. C349E-10 

2 • 1376E-13 
4.3337E-16 
4.5421E-16 
2.7160E-17 
2.2234E-16 
2.1122E-16 
2. 4354 E— 17 
1.9C19E-17 


FRANCK-CCNDON FACTOR 


E.8567E-02 
1. 7820E-01 
1.2C48E-03 

1. 6 2 30E-01 
1. 8C65E-03 
1.8C81E-01 
2.60 54E-01 
1. 0650E-01 
1.85 66E-02 
1.4947E-03 
5. 24C8E-05 
6.32 1 6E-07 

1. 1C12E-09 
1.0512E-12 
9.7232E-16 
4 . 13 87 E— 16 
4.9038E— 17 
5.40C9E-16 
9.1758E-17 
2.6C78E-16 


3.6486E-C2 
1.4502E-01 
7.7240E-C2 
3.2267E-02 
1. 1388E-01 
4.7796E-02 
8 . 3053E-C2 
2. 7C61E-01 
1 . 5609E-C1 
3.4197E-02 
3.2741 E— 0 3 
1. 3176E-C4 
1.769CE-06 
3. 2357E-09 
4 • C476E-12 
2.8052E-15 
6. 3948E-17 

2. 1696E-15 
1. 2590E- 16 
9.9179E-16 


1 . 3990E-02 
8.6473E-02 
1.2750E-01 
9 .0504E-03 
8.8227E-02 
4.2616 E-02 
1.C4C4E-01 
1.9163E-02 
2.4 3 80 E-Cl 
2.0292E-01 
5.5689E-C2 
6.2985E-03 
2.8895E-04 
4.2896E-06 
8.1628 E-09 
1 • 2 846 E- 11 
4.5515E-14 
2 .43666-15 
3.5970E-16 
3.8594E-15 


5. 1465E-03 
4.3670E-02 
1. 1271E-C1 
6.9100E-02 
5.2273E-C3 
1.C567E-01 
3.171 IE-03 
1. 2905E-01 
2 . 7659E-C5 
1.9185E-01 
2.4021E-C1 
8 . 2650E-C2 
1 .C992E-C2 
5 . 7172E-C4 
9.3348E-06 
1.8385E-C8 
3. 4427E-1 1 
2. 1664E-13 

3. C869E- 17 
4.2273E-15 


1. 8513E-03 
1.9997E-0Z 
7.4955E-02 
1 . 0094E-01 
1.7977E-02 
3. 8289E-02 
8. 0781 E-02 

6.7 482E— 03 
1. 1586E-01 
1.6939E-02 
1.2991 E-0 1 
2.6301E-01 
1. 1398E-01 
1 . 7773 E— 02 
1 . 0436E-03 
1.8657E-05 
3 . 7813E-0 8 
8. 532 IE— 1 1 
4 . 89966 — 1 3 
8.321 5E-15 


6 . 5953E-04 
8 . 6259E-03 
4.2471E-C2 
9.C789E-02 
6 . 3607E-02 
1. 22C8E-06 
6.9671E-02 
3 . 9461E— 02 
3 .6330F-02 
7.8622E-02 
5.21 88E-02 
7 . 20 55E-02 
2.6878E-01 
1.4799E-01 
2.7016E-02 
1 .7849E-03 
3.48C3E-05 
7. 2030E-08 
1 .9965E-1C 
1 .2193E-12 


2.3477E-C4 
3. 5B91E— 03 
2. 1815E-02 
6.4061 E-02 
8.34R8E-C? 
2.4543E-02 
1 .2893E-0? 
i .73276-02 
8.36C1E-03 
6.7727E-02 
3 . 7645E-02 
8.7792E-02 
2.8566E-02 
2.5751F-01 
1. 8258E-01 
3.9015F-O2 
2.89 27F-03 
6. 1314E-05 
1.28726-07 
4. 3255E-1C 


VV 1C 
V 

C 8.4C31E-05 

1 1.4631 E-03 

2 1.C529E-C2 

3 3.917 1 E-C2 

4 7.5LC6E-C2 

5 5.8198E-C2 

6 2.46006-C3 

7 3 .83286-02 

8 6.C770E-C2 

9 3 . 1940E-C4 
1C 8 . 37CCE-C2 

11 9. CUBE-02 

12 1.1C86E-C1 
12 4.6872E-C2 

14 2.2145E-C1 

15 2.1544E-C1 

16 5.3947F-C2 

17 4.4801E-C3 

18 1.C894E-04 

19 2. 1785E-C7 


11 

3.0383E-C5 
5.9070E-C4 
4.8845E-C3 
2.187 1E-C2 
5 . 51C3E-C2 
7.0564E-C2 

2 • 8 C99E-C2 
2.7384E-C3 
5.721 1E-C2 

3 .3C48E-C2 
1.3C68E-02 
7 .8966E-02 
2.6171E-C5 
1.1561 E— C 1 
7.7329E-C4 
1 .9452E-C1 
2 . 44 3 2E-C1 
7 . 18 52E-C2 
6 .6745 E— C 3 
1.6584E-C4 


12 

1.11 25E-C5 
2.38C2E-C4 
2.21 19E- C3 
1.1508E-C2 
3.5667E-C2 
6 .3384E-C2 
5.2611E-C2 
6.4CC3E-C3 
1 .8520E-C2 
5.9448E-C2 
9.5758E-C3 
3.5274E-C2 
5 .84 57E-C2 
9.3424E-C3 
1 .0292E-C1 
1.23C1E-C2 
1 .5158E-C1 
2.6718E-C1 
9.26 13E-C2 
9.6153E-C3 


13 

4.1473E-06 
9.6271E-05 
9.e835E-04 
5. 8243E-03 
2.1275E-02 
4.7949E-02 
6.0394E-02 
2.912 IE-02 
8.6772E-05 
3.72E9E-C2 
4 . 6C33E-02 
6.6872 E-05 
5.42 27E-02 
3.2354E-C2 
2 . 9820E-02 
7 . 829CE-02 
3.6337E-C2 
1.C776E-01 
2. 8246E-01 
1 • 1595E-01 


14 

1. 5729E-C6 
3.9251 E-05 
4. 3920E-04 
2.8759E-03 
1 . 20 16E-C2 
3.2525E-C2 
5 . 4340E-02 
4. 7C31E-02 
9. 5049E-03 
7 . 96 25 E-0 3 
4. 8138E-02 
2 . 5442E-02 
5.71 C4E-C3 
6. 1513E-C2 
1.086 IE-02 
5. 2260 E-02 
4. 9346 E-02 
6. 3088E-02 
6. 7723E-02 
2. 89C0E-CI 


15 

6.0831 E-0 7 
1.6185E-05 
1.9525E-04 
1 .3995 E-03 
6.543 1 E-03 
2.0 514E-02 
4 . 22 50 E-02 
5.2119 E-02 
2. 8339E-02 
3 • 6806E-04 
2.281 5E-02 
4 .63256-02 
7.8299 E-03 

2 .08 20E-02 
5.5268 E— 02 
5 . 5460E-04 
6 . 867 5 E-0 2 
2.3488 E-02 
8.7269 E— 02 
3 . 5244 E-0 2 


16 

2.4019E-07 
6.7658E-06 
8.7217E-C5 
6.7625E— 04 
3.4791E-G3 
1.2313E-02 
2 .9 867E-0 2 
4.718 3E-02 
4.1643E-02 
1 . 1202E-02 

3.C276E-C3 
3.5766E-02 
3.3974E-C2 
1.36 33E-C4 
3.6818E-C2 
3 . 9360E-C2 
2.9424E-C3 
7.4348E-02 
6 . 1701E-C3 
1.0409E-01 


17 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

4 ********* 

4 * 444 ***** 

********** 


18 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


19 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 
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********** 
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NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
8 

SPECTCGRAPHIC CONSTANTS FROM HERZBERG 

MORSE FRANCK CONDON FACTORS NBS VOL 65A 1961 P 451. 

THIS TRANSITION COMPUTED IN SUBROUTINE ZERO 


DIATOMIC 
TRANSITION 
N2 2 * 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
1 


LINE 

ALTERNAT ION 
FACTOR 


NUCLEAR SPIN 
FOR HOMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 
ATOMIC 
WE IGHT 


1.0 


1C 


7.0038 


SPIN 

CCUPL ING 
CONSTANT 


CUANTUM NUMBER CF 

RESULTANT ELECTRONIC ANGULAR 

MOMENTUM ABCUT INTERNUC. AXIS 


ROTATIONAL 
CONSTANT 
OE, 1/CM 


ROTATIONAL 
CONSTANT 
BETA, 1/CM 


DISSOCIATION INTERNUCLEAR DISTANCE 

ENERGY AT EQUILIBRIUM 

DEZERO, 1/CM POSITION, CM 


UPPER STATE C.00 
LOWER STATE 42.30 


1 

1 


O.OOOOOOOE-38 

O.OOOOOOOE-38 


C.OCCOOOOE-38 
0. OOCOOOOE-38 


C.OOCOOOOE-38 

O.OOOOOOOE-38 


C . 1 148200E-07 
0.1212300E-07 


ELECTRCNIC 

ELECTRONIC 











DEGENERACY 

TERM ENERGY 

WE 


WEXE 


WEYE 

WEZE 

BE 


ALPHA E 

STATE 

6 

8.91473CCE 

G4 

2.C351000E 

03 

1.7 C80000E 

01 

-2.1 50000CE 00 

0. 0000000E-39 

1 . 82 590C0E 

CO 

1 . 97COOOOE— 02 

STATE 

6 

5.9626300E 

04 

1.7341 100E 

03 

1.4470000E 

01 

O.OGOOOOOE-39 

C. 0000000E-39 

1.6380000E 

00 

1 . 8400000E— 02 


1 

9.93 27000 £ 

04 

6 .7C00CC0E 

02 

0. CCOCOOOE 

-39 

O.CCOOOOOE-39 

C • CCOOOOOE-39 

1 .46000COE 

OC 

0. 00000006-39 


3 

9.7584000E 

04 

0 • COOOCOOE- 

-39 

0. OOOOOOOE- 

-39 

0 . OOOOOOOE-39 

0. 0000000E-39 

0. OOOOOOOE- 

-39 

0. OOOOOOOE-39 


3 

9. 577C0CCE 

04 

2 . 18450C0E 

03 

0 . CCOOOOCE 

-39 

C.OCOOOOOE-39 

0. OOOOOOOE-39 

0 . GOOOOCOE- 

-39 

0. OOOOOOOE-39 


2 

6.929COOOE 

04 

1.6520100E 

03 

1.2791000E 

01 

-3.4890000E-01 

0. OOOOOOOE-39 

1 . 63700006 

00 

2.2*000006-02 


2 

6 . 39430C0E 

04 

1.5601C00E 

03 

1. 19000C0E 

01 

C.OCOOOOOE-39 

0. OOOOOOOE-39 

0. OOOOOOOE- 

-39 

0. OOOOOOOE-39 


1 

6.C00C000E 

04 

1 . 5270CC0E 

03 

1. 1500000E 

01 

O.OCOOOOOE-39 

0 . COOOOOOE-3 9 

1.4800000E 

00 

1. 5000000E-02 


3 

5 . C2C6000E 

04 

1.46C37CCE 

03 

1 . 38910C0E 

01 

-2.5COOOOOE-C2 

0. OOOOOOOE-39 

1.4400000E 

00 

1 . 3000000E-02 


1 

C.COOOOOOE- 

39 

2.35961C0E 

03 

1 . 44560CCE 

01 

7.5 100000E-03 

-5.0900000E-04 

2.0 lOOOOOE 

00 

1 .87000006-02 


v 

vv c 

1 

2 

3 

0 

4.4929E-C1 

3.2870E-C1 

1*469 IE— 0 1 

5.2258E-02 

1 

3 ♦ 89 86E-G 1 

1 .8685E-02 

2 • 03 76 E-C 1 

2 • 0027E-01 

2 

1 » 34 94 E-C 1 

3.2222E-C1 

3.25E8E-C2 

5 • 9 570E-02 

3 

2 • 363CE-C2 

2 * 5 146E-01 

1 • 63C4E-0 1 

1* 1 S12E-01 

4 

2. 19C5E-C3 

6 . 5 5 66 E-02 

3.C342E-C1 

4.7523E-02 

5 

*********4 

********** 

********* * 

********** 

6 

********* 4 

********** 

********** 

**** ****** 

7 

********** 

********** 

********** 

********** 

8 

********** 

********** 

**** ***** * 

********** 

9 

********** 

********** 

********** 

********** 

10 

********** 

********** 

******** * * 

**** ****** 

11 

********** 

********** 

********** 

********** 

12 

********** 

********** 

********** 

********** 

13 

* ********* 

********** 

********** 

********** 

14 

********** 

********** 

********** 

********** 

15 

********** 

********** 

********** 

********** 

16 

********** 

********** 

********* * 

********** 

17 

********** 

********** 

********** 

*** ******* 

18 

********** 

********** 

********** 

********** 

19 

********** 
vv ic 

********** 

11 

********** 

12 

********** 

13 


V 


0 

5 • 5777E-C6 

1.52 75E-C6 

3.50 14E-0 7 

5 • 9745E-08 

1 

1.7024E-04 

4.92 52E-C5 

1 • 40 75E-C5 

3.9912E-06 

2 

2.C161E-C3 

6 .7377E-C4 

2. 1835E-C4 

6.9211E-05 

3 

1. 2816 E-02 

5.C889E-C3 

1 • 5 1 C6E-C3 

6 • 8923 E— 04 

4 

4.6144E-C2 

2.2924E-02 

1.031 7E-C2 

4.3221E-03 

5 

********** 

********** 

********** 

********** 

6 

********** 

********** 

********** 

********** 

7 

********** 

********** 

********** 

********** 

3 

********** 

********** 

********** 

********** 

9 

********** 

********** 

********** 

********** 

10 

********** 

** * * ****** 

********** 

********** 

11 

********** 

********** 

********** 

********** 

12 

********** 

********** 

********** 

********** 

13 

********** 

********** 

********** 

********** 

14 

********** 

********** 

********** 

********** 

15 

********** 

********** 

********* * 

**** ****** 

16 

********** 

********** 

********** 

**** ****** 

17 

********** 

********** 

********** 

********** 

18 

********** 

********** 

********** 

********** 

19 

********** 

***** **** * 

********** 

********** 


FRANC K-CCNCCN 
4 

1.6345E-02 


1. 1238E-01 
I. 6138 E- Cl 
1 • 8410 £-03 
1. 5698E-C1 
********** 
********** 
********** 
*** ******* 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


6ACTCR 


4.7260E-03 
4*8391 E-02 
1.4274E-C1 
8 . 8906 E-02 
1*4 160E-02 
********** 
********** 
********** 
********** 
** ****** ** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
*4******** 


6 

1 • 2999E-03 
1. 79048-02 
8 . 30 30E-02 

1 .345CE-0 1 

2 *8 388E-G2 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


7 

3.4632E-04 
6.0242E-03 
3.8599E-02 
1*0624 E— 01 
9*9550 E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


8 

9.0427E-05 
1 . 9045E-03 
1.5642E-02 
6.1610E-02 
1 . 1050E-C1 
**** ****** 
********** 
********** 
* ********* 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


9 

2 » 3 327E-05 
5 . 7747E-04 
5. 79326-03 
2. 9799E-02 
8.0226E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


14 

2. 5535E-C8 
1.1265E-06 
2 • 1688E-C5 
2.4164E-04 
1.7309E-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


15 

6. 54666-09 
3*1711 E-07 
6*7 2C6 E- C 6 
8.30026-05 
6*6710 E-04 
********** 
********** 
********** 
********** 
********** 
****** **** 
********** 
********** 
********** 
********** 
********** 
********** 
****** **** 
********** 
****** ** ** 


16 

1.6780E-C9 
8*911 9 E-08 
2.069CE-C6 
2 • 8 101E-C6 
2.5045E-C4 
********* * 
********** 
********** 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********** 
******* *** 
********** 
********** 


17 

4.2921E-10 
2.50126-08 
6.3413 E— 07 
9.4178E-06 
9.2257E-C5 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
***$****** 
********** 
********* * 
********** 
********** 


18 

1.C925E-1C 
**.00586-09 
1.9314E-C7 
3*13416-06 
3.35246-05 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
* ******** * 
********** 
* *** ****** 
********** 
********** 


19 

2. 75616-11 
1 • 9548E-09 
5.90 29 F-06 
1* 03786-06 
1 • 20656-05 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
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DIATOMIC 

TRANSITION 

N2LBH 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
2 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
9 


SPECTCCRAPHIC CONSTANTS FROM HERZeERG. 

MORSE FRANCK CCNOCN FACTORS NBS VOL 65A P 451 1961 
THIS TRANSITION CCMPUTEC IN SUBROUTINE ONE. 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FOR HOMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

HEIGHT 


1.0 


1C 


7.0038 


SPIN 

COUPLING 

CONSTANT 

UPPER STATE 0.00 

LCHER STATE 0.00 


QUANTUM NUMBER OF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 

MOMENTUM ABCUT INTERNUC. AXIS CEt 1/CM 


ROTATIONAL 
CONSTANT 
BETA, 1/CM 


DISSOCIATION 

ENERGY 

DEZERO, 1/CM 


1 

C 


0 . CCCOOOOE-3 6 
0. 0000000E-3S 


C.0000000E-38 
O.OOCOOOOE— 38 


O.OOCOOOOE-38 
0.7871000E 05 


INTERNUCLEAR DISTANCE 
AT EQUILIBRIUM 
POSITION, CM 

C. 1213000E-07 
C.1C94000E-07 


ELECTRONIC 

DEGENERACY 

UPPER STATE 2 

LOWER STATE 1 

1 

3 

6 

2 

1 

fc 

3 


ELECTRONIC 
TERM ENERGY 

6.9250000E 04 
C.OOOOOOOE-3S 
9.93 27000E 04 
9.7584000E 04 
9.57700CCE 04 
6 .9 147300E 04 
6.3943000E 04 
6.CCOOOOOE 04 
5 . 96 26 300 E 04 
5.C2C6000E 04 


HE 

1.692CIC0E 03 
2.3596100E 03 
fc . 7C0CCC0E C2 
C.COOOOOOE-39 
2.18450C0E 03 

2.C351000E C3 
1 . 560 1 C COE 03 
1.5270CCQE 03 
1.7241 100E C3 
1.46037C0E 03 


WEXE 

1.27910006 01 
1.4456000E 01 
C.CC00000E-39 
C.COOOOOOE-39 
0 . OCOOOOOE -39 
1.7 C800CCE 01 

1 . 1S0C000E 01 
1. 1500000E 01 
1I44700CCE 01 
1. 38910C0E 01 


WEYE 

-3.4E9000CE-01 
7.5 100000E-03 
O.OCOOOOOE-39 
0 . OCOOOOOE-39 
C.OCOOOOOE-39 
-2.1 50000CE 00 
C.OCOOOOOE-39 
O.OOOOOOOE-39 
C.OCOOOOOE-39 
-2.5000000E-02 


HEZE 

O.OOOOOOOE-39 
-5. 0900000 E-04 
C.COOOOOOE-39 
O.OOOOOOOE-39 
C .CCOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
C . COOOOOOE-3 9 
O.OOOOOOOE-39 


BE 

1.6370OC0E 00 
2.0100000E 00 
1.46C0000E CO 
O.OOOOOOOE-39 
0. COCOOOOE-39 
1 . 8259000E 00 
O.OOOOOOOE-39 
1.4800000E 00 
1.6380000E 00 
1.4400000E 00 


ALPHA E 

2 .2400000E-02 
1 . 8700000E-02 
0 . OCCOOOOE-39 
0.00000006-39 
O.OOOOOOOE-39 
1 . 97COOCOE-02 
O.OOOOOOOE-39 
1 . 5000000E-02 
1.8400000E-02 
1 . 3000000E-02 


VV C 
V 

C 4.3147E-C2 

1 1 . 1623E-C 1 

2 1.7 128E-C 1 

3 1.8348E-01 

4 1. fc02fcE-C l 

5 1.2140E-C1 

6 8.2871E-C2 

7 5 . 2 3C4E-C2 

8 3. 1090E-02 

9 1.7644E-02 

10 9. £tC8E-C3 

11 5. 1456E-C3 

12 2.fcE37E-C3 

13 1 . 3780E-0 3 

14 6 • 9S62E-04 

15 3.5254E— C4 
1 £ 1 . 7686E-04 

********** 
18 $$******** 


FRANC K-CCNCCN FACTOR 


1 

1 . 5 1 7CE-C1 
1.9315E-C1 
9 .6767E-C2 
1.21 19E-C2 
6.3S14E— 03 
4 . 7C60E-02 
8.5419E-C2 
9.9714E-02 
9 . 2 157E-C2 

7 . 34 57E-C2 
5 .28526-02 
3 . 5298E-02 
2. 2297E-C2 
1.3502E-02 
7.9172E-C3 
4 • 5 2 S9E-03 
2. 5446E-03 
********** 
********** 
********** 


2 

2.4766E-C1 
8 . 0487 E— 02 
3 . 27fcCE-C 3 
7 .55436-02 
S.66C9E-C2 
4.6680E-02 
4 . 5383E-C3 
5 . 7959E-C3 
3.3721E-C2 
6.1C52E-C2 
7.3781E-C2 
7,16 2fcE-C2 
6 . C437E-02 
4.6253E-02 
3.2962E-C2 
2.2268E-C2 
1 .4443E-02 
********** 
********** 
* ** **** * * * 


2.49 24E-01 
4.01 7 7E— 04 
1. C744E-01 
6.9313E-02 
5. 8118E-04 
3.39 22E-02 
7.2885E-02 
5 . 6 5 82E-02 
1 . 8257E-02 
1 . 3 1 42 E-04 
9.7471E-03 
3 . 2C04E-02 
5.1 0C9E-O2 
5 . 9 5 38 E -02 
5.79 7 2E-02 
5.CC57E-02 
3 . 9684E-02 
********** 
********** 
********** 


1.7313 E-01 
8. 73206-02 
E.5983E-02 
3.6061E-03 
7. 74426-02 
5.67C IE-02 
2.7951E-03 
1.71746-02 
5. 3397E-02 
5 .48466-02 
2.7952E-02 
4. 5490E-03 
1. 1577E-03 
1.3977E-02 
3.1418 E-C2 
4.4474E-02 
4. 9779E-02 
********** 
********** 
********** 


8.8079 E-02 
1.8 508 E-0 1 
8.554 IE-04 

9.5 107 E-02 
3.7353 E-02 
8. 3644 E- 03 

6 . 34 73 E-02 
4 . 6938E-02 
4.2C86E-03 
9.2341E-03 
3.9179E-02 
4.9179E-02 
3.2993 E-0 2 
1 .C9C5E-02 
2.5375E-C4 
4.2788 E-03 
1 .6781E-02 
********** 
********** 
********** 


6 

3 .399 3E-C2 
1.7516E-01 
6.4509E-02 
6 .58016-02 
1.6885E-C2 
7.8822E-C2 
1.4846E-02 
l . 2779E-C2 
5.4396E-02 
3.97 1 3E-02 
5.0804E-03 
4 • 904 IE— 03 

2 • 8fc0 IE-02 
4 . 2374E-02 
3.4721E-02 
1 . 6705E-02 

3 . C392E-03 
********** 
********** 
********** 


7 

1 . 0171E-02 
1.0324E-01 
1. 6401 E— 01 
1.4814E-04 
9.6672E-02 
7.9121E-03 
4. 04206-02 
5.7309E-02 
4.7475E-03 

1 . 5 872E-02 
4.7431E-02 
3.4460E-02 
5.8283E— C3 
2.3212E-03 
2.04006-02 

3 . 5 353E-02 
3. 4144E-02 
********** 
********** 
********** 


8 

2.3917E-03 
4.2495F-02 
1.6142E-C1 
7 • 8 397E-02 
3.6152E-02 
4.67 48E-02 
5.50216-02 
1 . C399E-03 
5.C3C9E-02 
3.8686E-02 
9 • 42006-04 
1.74 15E-02 
4. 1688E-02 

3.C711E-02 
6 • 6949E-03 
7 . 8834E-04 
1 . 38 41E-02 
********** 
********** 
********** 


9 

4.4536E-04 
1. 28946-02 
9.4062E-02 
1.6324E-01 
9. 1675E-03 

8.5 363E-02 
2.0IC4E-03 
6.75506-02 
1.7512E-02 
1.1738F-02 
4. 9335E-02 
2. 51846-02 
2. 10076-05 
1 . 7579E-02 
3.6796E-02 
2.80856-02 
7.80666-03 
********** 
********** 
********** 


VV 1C 
V 

0 6 . 5 8 86 E-C5 

1 2 . 9fc84E-C3 

2 3.7178E-C2 

3 1.4306E-C1 

4 1.C847E-01 

5 7 • 9 5 76 E-C3 

6 7.8737E-C2 

7 1.53 7t E-0 2 

8 3 . 1436E-C2 
5 5.C739E-C2 

10 1.8434E-C3 

11 2.257 1E-C2 

12 4. 3320E-C2 

13 1.6377E-02 

14 1.3573E-04 

15 1.6663E-C2 
lfc 3.251 8E-C2 

17 ********** 

ia ********** 

19 ********** 


11 

7.74 COE-Gfc 
5.265 8E-C4 
1.C6C3E-C2 
7 . 5175E-C2 
1 .6260E-01 
3.91 13E-02 
5.1442E-C2 
2.2C95E-C 2 

5.35 E6E-C2 
1.2464E-03 
4. 9046 E-02 
2 .6982 E-C2 
5.4143E-C4 
2.8647E-C2 
3 .6255E-C2 
1. 1055E-C2 
3 .94 6 1E-C4 
********** 
* ********* 
********** 


12 

7.1926E-C7 
7.25C2E-05 
2.2534E-C3 
2.675 3E-C2 
1.1787 E — Cl 
1. 4016 E- Cl 
1.6276E-C3 
8.3544E-C2 
1 .C426E-C3 
6.3C84E-C2 
1 .15 14E-C2 
1.8394E-C2 
4 .5667E-02 
1 .C683E-C2 
4.5241E-C3 
3.C416E-C2 
3 .0054E-C2 
********** 
********** 
* * * ****** * 


13 

5 . 24 77E-08 
7. 7577E-06 
3.6266E-04 
6 . 8 242E-03 
5. 3C39E-02 
1.4985 E-01 
8.71 72 E-02 
1 . 1954E-02 
7 . 3 166E-0Z 
1.2 393 E-02 
3. 5553E-02 

4.C959E-02 
6.3378E-05 
3.3C26E-02 
3. 35C5E-02 
2. 8417E-03 
6.7 66 5 E-03 
********** 
********** 
******** * * 


14 

2.97C9E-C9 
6.4253E-C7 
4.4589E-C5 
1. 2847E-03 
1.6319E-02 
8.7152E-C2 
1. 5686E-C1 
3. 1952E-C2 
4.9484E-C2 
3.4393E-02 
4.4981E-C2 

5. 259CE-C3 
5. C482E-02 
1. 2956E-C2 
7.7462E-03 
3.6895E-0? 

2. 1658E-02 
********** 
********** 
********** 


15 

1 . 28 32 E- 10 
4 .0808 E-08 
4. 1814E-06 
1.8 106E-04 
3 . 59 6 6 E-0 3 
3.2616E-02 
1.2213 E-01 
1.3391 E-Cl 
1.9439E-C3 
7.8477E-C2 
3 . 779 7E-03 
6.1 266E-02 
3.2684E-03 
3 .0547 E-02 
3.6321 E-02 
9 .CC14E-04 
1.7875E-02 
********** 
********** 
********** 


16 

4.1 106E- 12 
1.9606E-09 
2.9740E-07 
1.9191E-05 
5.81 2 4E-04 
8.4426E-03 
5.6318E-02 
1.48006-01 
8.9062E-02 
7.5768E— 03 
7.6180E-02 
4.7036E-C3 
4.6130E-C2 
2 .63376-02 

5 . 5 526E-0 3 
4.C821E-02 
1. 72936-02 
********** 
********** 
********** 


17 

9.9345E-14 
7.0520E-11 
1 . 58576-08 
1.5250E-06 
6 . 9568 E— 0 5 
1 . 5660E-03 
1 . 7212E-02 
8 . 5723E-C2 
1 . 5546E-01 
4 .03546-02 
3 . 7765 E-0 2 
4 . 6677E-02 
3 • 0377E-02 
1. 6466E-02 
4.65886-02 
1.7892E-03 
2.2493E-P2 
********** 
********** 
********** 


18 

3.3615E-15 
1 .8302E-12 
6.2259E-10 
8 .99976-08 
6.1694E-06 
2 • 1160E-04 
3 .67176—03 
3.11736-02 
1. 1 640E-01 
1 . 4013E-0 l 
7 .24 876-03 
6.8721E-02 
1 . 3531E-02 
5 . 4613E-02 
2.0058F-04 
4.3017E-02 
1 .98C5E-02 
********** 
********** 
********** 


19 

3.C101E-17 
2. 3676E-14 
1.7511 E— 1 1 
3. 8880E-09 
4 . 0236E-07 
2 . 0924E-05 
5.6C45E-04 
7.67356-03 
5.09176-02 
1.4178E-01 
1.0525E-01 
1. 16996-03 
7 . 945SE-02 
8.1207E-07 
5.61 34E-02 
9. 5126E-03 
2.0646E-02 
********** 
********** 
********** 
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DIATOMIC 
TRANSITION 
NO B 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
1 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
10 


SPECTCGRAPHIC CONSTANTS FROM HERZBERG. 

AVERAGE VALUES FOR PI 1/2 AND PI 3/2 USED IN APPROPRIATE PLACES. 

RKR FRANCK— CONCCN FACTORS JQSRT VOL 4 P271 UPPER VALUE IN ARRAY USED 
THIS TRANSITION CCPPUTEC IN SUBROUTINE ZERO. 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FOR HOMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


0.0 


6 


7.4688 


SPIN 

COUPLING 

CONSTANT 


QUANTUM NUMBER CF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 
MOMENTUM ABCUT INTERNUC. AXIS CE, 1/CM 


ROTATIONAL 
CONSTANT 
BETA, 1/CM 


DISSOCIATION TNTERNUCLEAR DISTANCE 

ENERGY AT EQUILIBRIUM 

DEZERO, 1/CM POSITION, CM 


UPPER STATE 0.00 
LOWER STATE 124.20 


1 

1 


C . OOCOOOOE-3 8 

O.OOOOOOOE-38 


C.COCOOOOE-38 

C.OOOOOOOE-38 


O.OOOOOOOE-38 

0.5240000E 05 


C . 1416 500E-07 

0. I 150800E-07 


ELECTRONIC ELECTRONIC 

DEGENERACY TERM ENERGY WE 


WEXE 


WEYE 


WE ZE BE 


ALPHA E 


UPPER STATE 4 

LOWER STATE 4 

2 
2 
2 
2 


4.59 22400E 04 
6.055C00CE 01 
6.C628500E 04 
5. 3C83000E 04 
5 . 2 14 8000E 04 
4.3565700E 04 


1.C376EC0E 03 
1.9C38550E 03 
2 . 373 6CCCE C3 
2 . 327000CE 03 
2.3470000E 03 
2.371300CE 03 


7 . 6C30000E OC 
1 . 3970000E 01 
1 . 58500CCE 01 
2. 3COOOOOE 01 
0 . OCOOOOOE-39 
1. 44 8000CE 01 


5. 6700000E-02 
-1. 2000000 E-C3 
0 .OCCOOOOE-39 
0. 0C00000E-39 
C.CC00000E-39 
-2.8000000E-01 


O.OOOOOOOE-39 
O.OOOOOOOE-39 
C . COOOOOOE-35 
O.OOOOOOOE-39 
0.C000000E-39 
O.OOOOOOOE-39 


1 . 1270000E CO 
1 • 7046000E 00 
1.98630C0E 00 
1 . 99 1 7000E 00 
1 • S5500C0E 00 
1.99520C0E 00 


1 . 5250000E-02 
1 . 7800000E-02 
1. 8200CC0E-02 
O.OOOOOOOE-39 
0.0000000E-39 
1.6400000E-02 


FRANCK-CON DON FACTOR 


V 

0 

1 

2 

4 

5 

6 

7 

8 
5 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 


VV C 

********** 
********** 
********** 

1 . CCCOE-C 3 

3. OCOOE-C3 
5 . COCOE-O 3 
1 . 1C00E-02 
1 . 7COOE-02 
2 . 2C0OE-02 
2.9000E-C2 
3.2000E-C2 
4. 1000E-C2 
5 . 1000E-02 
♦ **$$*>$=<>** 
********** 
********** 
********** 
********** 
********** 
********** 


1 

* ******:*** 

1 . OOOOE-G 3 
4.0000E-03 
9. O0OOE-O3 
1.7 C C0E-C2 
3 . 20C0E-C2 
4.40 C0E-C2 
5 . 9000E-02 
5 . 8000E-02 
6.CCOOE-02 
5. 7CC0E-C2 
4 . 6CC0E-02 
3 . 4000E-C2 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


2 

1 . OOOOE-C 3 
6.C0C0E-C3 

1 .eOCOE-C2 
3 . 8000E-02 
5.40CCE-C2 
6.S000E-02 
7 . CCC0E-C2 
5 . 30COE-C2 
3.60COE-C2 
1 .9000E-C2 
8.00C0E-C3 
1 .OOOOE-C3 
3.00C0E-C3 
********** 
********** 
********* * 
********** 
********** 
********** 
********* * 


5. 0CCOE-03 
2.4CC0E-02 

4.eCC0E-C2 
7 . 6CC0E-02 
7.6CC0E-02 
5 . 70C0E-02 
3.2 CC0E-02 
7. OC C0E-03 
***«*♦**♦ 
1.4CC0E-02 

2.CCC0E-02 
3. 10C0E-02 
3 • 80 C0E-02 
********** 

********** 
********** 
********** 
$$$$ ****** 
#***##**#* 


1 . 7000E-02 

5. 10C0E-02 
8. 5000E-C2 
8. 4000E-02 
4. 3000E-02 
6. 0000E-C3 
1.0000E-C3 
2.4000E-02 
3.4000E-02 
4.2000E-02 
3. 4000E-02 
2 . OOOOE-O? 
1.0000E-C3 
********** 
********** 
********** 
********** 
********** 
********** 
**** ****** 


4.1C00E-02 
9.7C00E-02 
9.2000E-02 
3 . 8000 E-02 
1 . 000OE-03 
1 .2C00E-02 
3.8COOE-C2 
4.6000E-02 
2. 7COOE-02 
6.0000E-03 
********** 
5.C000E-03 
2.60C0E-02 
$*#*#$#*$* 
********** 
********** 
********** 
********** 
********** 
********** 


6 

8 . 2000E-02 
1. 1700E-C1 
4. 7000E-C2 
********** 

3 . OOOOE-02 
5 . 3000E-02 
3 . 5000E-02 
5 . OOOOE-03 

2.CC00E-03 
1 . 8000E-C2 
3 . 2000E-0 2 
3 . 1000E-C2 
1 . 1000E-C2 
********* * 
********** 
********** 
********* * 
********** 
********** 
********** 


7 

1 . 2 500E-0 1 
8 . 8000E-02 
2. 0000E-03 
3 . 3000E-02 
6 • GC00E-02 
2.4000E-02 
********** 
2. 3000E-02 
3 . 8000F-02 
3. 1C 00 E-0 2 
1. 0000E-02 
** ******** 
1 . 3000E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


8 

1 • 63C0E-01 
2 . 9000E-02 
2 . 1000E-C2 
6.8000E-02 
2. 10COE-03 
4. OOOOE-03 
3 . 1000E-02 
3.6000E-02 
1 .40C0E-02 

♦ ♦♦♦♦At#*** 

1.4000E-02 
2.8000E-02 
2. OOOOE-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


9 

1 . 6700F-01 
********** 
7. 3000E-C2 
4. 2000E-02 
3. 0000E-03 
4.6000E-02 
3.4000E-C2 
1. 0000E-03 
1 • 30C0E-02 
3 . OOOOF-O? 
2 . 7000E-02 
9. OOOOE-03 
3.0000E-03 
*$******** 
# * * * * * * * * * 
********** 
********** 
********** 
********** 
********** 



vv ic 

11 

12 

c 

1 . 5200E-0 1 

1. 1400E-01 

7.6CC0E-C2 

l 

2 . 1000E-C2 

7.4000E-02 

1 .2600E-C1 

2 

8. 2G0CE-C2 

4 . 1CCCE-C2 

********** 

3 

1 . CC0CE-C3 

2.4000E-C2 

7.2000E-C2 

4 

3. S000E-C2 

5.4CC0E-C2 

1 .2CCOE-C2 

5 

3 • 7000E-0 2 

1 .8000E-C2 

2. 5000E-C2 

6 

1. COOOE-03 

2 . 5000E-C 2 

4.3CC0E-C2 

7 

2 . 2000E-0 2 

4.0OC0E-02 

2.0000E-C3 

8 

3 . 5CCCE-C 2 

2 . 0000E-C3 

1 .7CC0E-02 

9 

1 .eCC0E-C2 

8 . OCCOE-C3 

3 . 40C0E-C2 

10 

********** 

2.40C0E-C2 

1 . 4000E-C2 

11 

8.COOOE-C2 

2 . 6CCCE-C2 

*** ******* 

12 

2 . 6000 E— 02 

1.0000E-C3 

1 .20C0E-C2 

13 

********** 

$ -fc * 

********** 

14 

********** 

********** 

********** 

15 

********** 

********** 

********** 

16 

********** 

********** 

$ ********* 

17 

********** 

********** 

********** 

18 

********** 

********** 

********** 

19 

********** 

********** 

********** 


13 

3. 3CCOE-02 
1. 39C0E-01 
1 • 8CCCE-C2 
5.4000E-02 
1.7CC0E-02 
5 . 20COE-02 
2 • 0CC0E-03 

2 . eccce -02 

2. 7CC0E-C2 

2.CCCCE-03 
1.4C0OE-02 
3. 2C00E-02 
7.0000E-03 
******* ** * 
********** 
********** 
********** 
********** 
********** 
********** 


14 

1.600CE-02 
1 . 0 500E-0 1 
8 . 20CCE-C2 
9. OOOCE-03 
6. 600CE-02 
1 . 4CC0E-C2 
1 . 8000E-02 
3. 4C00E-C2 
********** 
2. 1000E-02 
2. 7CC0E-C2 
8. COOOE-03 
8.0000E-03 
********** 
******** ** 
********** 
********** 
********** 
********** 
********** 


15 

7.C0C0E-03 
6 . 8000 E-02 
1 . 26C0E-0 1 
1 .3000 E-02 
5.6000E-02 
1 . 0CC0E-02 
5 . 0C00E-02 
* ♦#*** **** 
3.3000 E-02 
3.0000 E-0 2 
********** 
1 • 8000 6-02 
2 • 2COOE-C2 
********** 
$$*$#*#*** 
********** 
********** 
********** 
********** 
******** ** 


16 

2 ♦ 0000 E-03 
2 . 8000E-02 
1 . 2400E-C 1 
8.6000E-C2 
5.0000E-C3 
6. 3000 E-0 2 
6 • 0000 E— 03 
3. 1000E-C2 
2 . 2000E-C2 
$$$**$$$$* 
2.7000E-02 
2 • 2000E-C2 
1. OOOOE-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


17 

********** 
1 . 2000E-02 
7.7C00E-02 
1. 3400E-01 
2 . 9C00E-02 
5. 0000E-O2 
1 • 8000E-02 
4 . 2000E-02 
********** 
3 * 2000E-02 
1.6000E-02 

2.CCC0E-C3 
3 • 1000E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


18 

********** 
4. OOOOE-03 
5.00COE-02 
1 . 1500E— 0 1 
7.7CC0E-02 
3. 0000E-03 
6 . 20C0E-02 
1 • OOCOE— 03 
3 . 5000E-02 
2.20C0E-02 
3. OOOOE-03 
2 . 5000E-02 
5.00C0E-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


19 

********** 
1 • 0000F-03 
1.00C0F-C2 
6 . 9000E-02 
1. 2900E-01 
3. OOOOE-02 
4 . 00C0E-O2 
3. 9CC0E-02 
3. 2000E-C2 
8. OOOOE-03 
4 . 1000E-02 
6. OOOOE-03 
2 . 2000E-02 

********** 

********** 

********** 

********** 

********** 

********** 
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DIATOMIC 
TRANS IT ION 
NO G 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
3 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
11 


SPECTCGRAPM IC CONSTANTS FROM HERZBERG 

AVERAGE VALUES OF PI 1/2 AND PI 3/2 IN APPROPRIATE PLACES. 
RKR FRANCK CCNCCN FACTORS JQSRT VOL A P271 196A 

THIS TRANSITION CCMPUTEC IN SUBROUTINE S2 PI2 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FOR HOMCNUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


0.0 


7.4688 


SPIN 

COUPLING 

CONSTANT 

UPPER STATE C.OO 
LOWER STATE 124. 2C 


QUANTUM NUMBER CF 

RESULTANT ELECTRONIC ANGULAR 

MOMENTUM ABOUT INTERNUC. AXIS 


ROTATIONAL 
CONSTANT 
DE, 1/CM 


ROTATIONAL 
CONSTANT 
BETA, 1/CM 


D I SSCCI AT ION 
ENERGY 

DEZERO. 1/CM 


C 

1 


C.OOOOOOOE-38 
0. OOOOOOOE-38 


C .0000000E-38 
0. OOOOOOOE-38 


O.OOCOOOOE-38 
0.5240000E 05 


INTERNUCLEAR DISTANCE 
AT EQUILIBRIUM 
POSITION, CM 

O.IC637COE— 07 
0.1 150800E-07 


ELECTRONIC 

DEGENERACY 

UPPER STATE 2 

LOWER STATE 4 

2 
2 
2 
4 


ELECTRONIC 
TERM ENERGY 

4.3965700E 04 
6.C550000E 01 
6.C62850CE 04 
5.30B3000E 04 
5. 214 80 00 E 04 
4.5932400E 04 


WE 

2.37130CCE 03 
1.SC38550E 03 
2.37360CCE 03 
2.3270000E 03 
2 .34700C0E 03 

1.C3768C0E 03 


WEXE 

1.448000CE 01 
1. 3970000E 01 
1. 58500CCE 01 
2. 3COOOOOE 01 

O.OOOOOOOE-39 
7.6C30000E 00 


WEYE 

-2.8C00000E-C1 
- 1 . 2000000E-03 

0.00C0000E-39 
C.OCOOOOOE-39 
O.OCCOOOOE-39 
S.6700000E-02 


WEZE 

O.COOOOOOE-39 

O.OOOOOOOE-39 

C.COOOOOOE-39 

O.OOOOOOOE-39 

C.OOOOOOOE-39 

O.OOOOOOOE-39 


BE 

1.9952000E 00 
1.7046000E 00 
1 . S863CC0E 00 
1.99170 00 E 00 
1 . 9550000E 00 
1 . 1270000E 00 


ALPHA E 

1 . 6400000E-02 
1 . 7800000E-02 
1 . 82C00COE-02 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
1 . 52 50000E-02 


FRANCK-CCNCON FACTCR 


vv c 
v 

0 2. 27COE-C1 

1 3. 6700E-01 

2 2.7SCOE-C1 

3 9.9000E-02 

4 2 . 60C0E-C 2 

5 5. CCOOE-03 

6 2.0C00E-C3 

7 ********** 

8 ********** 

9 ********** 

10 ********** 
11 ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 
ig ********** 


1 

3 . 0500E-01 
5.6CC0E-02 
8.7CCOE-02 
2.7400E-C1 
1.93C0E-C1 
7 . 7000E-02 

1 . CCO0E-O2 
1.0000E-03 
********** 
********** 
********** 
* ********* 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


2 

2 . 18C0E-C 1 
2.4000E-C2 
1.69CGE-C1 

1.C000E-C3 
1.74C0E-C1 
2 . 7000E-01 
1.0500E-01 
3.0000E-C2 
3.0000E-C3 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


3 

1 . 33C0E-01 
1 . 3300E-01 
1.5C0OE-O2 
1. 1200E-01 
5.3CC0E-02 
4 . 8CC0E-02 
2. 34C0E-C1 
1. 92C0E-01 
6 . CGC0E-02 
1.60COE-02 
3. 0CC0E-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


4 

6 . 5000E-02 
1. 6000E-01 
2.0CC0E-C2 
9.4000E-02 
2.0000E-02 
1.2700E-01 
6. 0000E-03 
1.4900E-01 
2. 2 100E-0 1 
1. 10C0E-C1 
2.4000E-C2 
4. OOOOE-03 
1.0000E-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


2.8000E-02 
1.2600E-01 
S.2CC0E-02 
********** 
1.0900E-01 
********** 
1.2700E-01 
1 .8000E-02 
5.2000E-02 
2 . 3000E-01 
1 . 3900E-01 
6 • 1000E-02 
1.3000E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


6 

1.0C00E-C2 
7.0000E-02 
1. 2500E-01 
2.6000E-02 
5 • 60 00E-C2 
6 . 2000E-02 
2 . 2000E-02 
4.9000E-02 
9.3000E-02 
6.0000E— 03 
1.7900E-01 
l.e60CE-01 
9. 3000 E- 02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


7 

3. OOOOE-03 
3.4000E-02 
1 . 0600E-01 
8.5000E-02 
********** 
8 . 2000E-02 
2.6000E-02 
7. 7000E-02 
2 . 5000E-02 
1 . 0600E-01 
2. 0000E-03 
1 . 2300E-01 
2.0400E-01 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


8 

2 .OOCOE-03 
1.3000E-02 
6 • 1CC0E-02 
1.0100E-01 
3 . 1000E-02 
2 . 1000E-02 
9.2000E-02 
5. OOOOE-03 
9 . 2000E-02 
3. OOOOE-03 
9 . 9000E-02 
2.60C0E-C2 
6.2000E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


9 

1. OOCOE-03 
6. OOOOE-03 
2.80C0E-02 
8. 3000E-02 
8. 3000E-02 
********** 
3.6000E-02 
5 . 5000E-02 
1 . 8000E-02 
7.5000E-02 
1 .6000E-02 
8.0000E-02 
6.9000E— 02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


VV 10 
V 

0 ********** 

1 3.0000E-C3 

2 1.4000E-C2 

3 6.CCC0E-02 

4 8 , SOOOE-C 2 

5 2.5COOE-C2 

6 ********** 

7 6 . 8C00E-O2 

8 1. 1000E-02 

9 3.4000E-02 

10 5 . 3000E-0 2 

11 2. 50C0E-C2 

12 4. 5000E-02 
12 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 
ig *4******** 


11 

4 ********* 

1. OOOOE-03 
7.O0C0E-C3 
3 . 3000E-C2 
6 .7000E-C2 
7 . 1CC0E-02 
1 . 7000E-C2 
3.0CC0E-02 
5 . 9C00E-C2 
3. OOOOE-C3 
6.300CE-02 
2.4000E-C2 
5 . 500CE-02 

4444 ****** 

4444****** 
********** 
4 ********* 
* * * * ***** * 
********** 
********** 


12 

4 ********* 

44 ******** 

4.0CC0E-C3 
1 .4CC0E-02 
4 » COCOE-C2 
7 . 5000E-02 
6 . 5000E-C2 
********** 
1.7COOE-C2 
4 . 1CC0E-0 2 
2. OOOOE-C3 
6 . 5C00E-C2 
2 . OOOOE-C3 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


13 

********** 
********** 
2.O0C0E-C3 
7. 00C0E-03 
3.20C06-02 
5 . 9CC0E-02 
7. ACC0E-02 
2. 00C0E-02 
4. 1CC0E-02 
5.30COE-02 
1.4C006-02 
3 . 2CC0E-02 
5. 4CC0E-02 
********** 
********** 
********** 
4 ********* 

4 ********* 

44 ******** 

444 ******* 


14 

444 ******* 
********** 
1. OOOOE-03 
3. OOOOE-03 
1.4000E-02 
3. 8000E-02 
6. 5000E-02 
6. 1000E-C2 
2. 10C0E-02 
2.0000E-02 
5 . OOOOE-02 
9. OOOOE-03 
2. 9000E-02 
444******* 

44 ******** 

4 ** 4 ****** 

44444***** 

********** 

444*4***** 

4444****** 


15 

********** 

44 * 44 ***** 

4444 ****** 

1. OOOOE-03 
7. OOOOE-03 

2. A0006-02 
5.6000E-02 
7. 1000E-02 
1 . 3000E-02 
8.00006-03 

3. ACOOE-02 
3.5000E-02 
3-. OOOOE-03 
44444 ***** 
********** 
4444 ****** 
4444 ****** 
* 4 ******** 
4444 ****** 
444 * 4 * 4 *** 


16 

4444****** 

4444****** 

4444 ****** 

4444444444 

5.0000E-03 
1 . 1000E-02 
3.2000E-02 
5. ACOOE-02 
5 . 2000E-02 
4. OOOOE-03 
1 • 2000E-02 
A • 8000E-02 
l.AOOOE-02 
4444 ****** 
4 *** 4 ***** 
444 * 4 ***** 
444 ******* 
444******* 
4444****** 

444 ** 4 **** 


17 

4444****** 

44 ******** 

44 ******** 

4444****** 
1. OOOOE-03 
7. OOOOE-03 
1.8000E-02 
A. A000E-02 
6 . 2000E-02 
3. A000E-02 

4 * 4 ******* 

1.7000E-02 

3.2000E-02 

********** 

444 ******* 

444 ******* 

********** 

********** 

444*4***** 

444******* 


18 

44 ******** 

44 * 4 ****** 

444444444 * 

4 ********* 

4444****** 
1. 0000E-03 
6. OOOOE-03 
2 .80006-02 
5.60C0E-02 
5 . A0C0E-02 
2 . 50C0E-02 

44 ******** 

2.A0C0E-02 

********** 

44444***** 

4444****** 

4 ********* 

4444 ****** 

44 ******** 

44 ******** 


19 

444 ******* 

44 ******** 

4444****** 

44******** 

4444****** 

44 ******** 

2. 0000E-03 

2.A0C0E-02 
3 . AO00E-02 

5. 30006- 02 
A. 6000E-02 
1. 0CC0E-02 

1 .30006- 02 

4 ********* 

4444 ****** 

444 * 4 ***** 

44******** 

444 * 4 ***** 

********** 

44 * 4 * 4 **** 
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DIATOMIC 

TRANSITION 

COASDI 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
2 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
12 


COASDI STANDS FOR CO ASLNCI BANDS. 

SPEC T CGR APH IC CONSTANTS FROM FERZBERG. 

MORSE FRANC K-CCNDCN FACTORS BY JARMAIN, FRASER, AND NICHCLLS 
ASTRGPHYS J 122,55, (1955) 

THIS TRANSITION CCNPUTEC IN SUBROUTINE ONE. 


UPPER 

LCWER 


UPPER 

LOWER 


V 

0 

1 

2 
3 
A 

5 

6 

7 

8 
9 

10 
11 
12 
13 
1 A 

15 

16 

17 

18 
19 



LI 

[NE 



NUCLEAR SPIN 

NUMBER OF 

REDUCED 



ALTERNATION 


FOR HOMONUCLEAR 

ELECTRONIC 

ATOMIC 




FACTOR 


MOLECULES 


LEVELS 

WEIGHT 





C. 



0.0 


12 

6. 85 8 A 




SPIN 


QUANTUM NUMBER OF 

ROTATIONAL 

ROTATIONAL 

DISSOCIATION INTERNUCLEAR DISTANCE 


COUPLING 


RESULTANT 

ELECTRCNIC ANGULAR 

CONSTANT 

CONSTANT 

ENERGY 

AT EQUILIBRIUM 


CONSTANT 


MOMENTUM 

ABCU 

T INTERNUC. AXIS DE, 1/CM 

BETA, 1/CM 

DEZERO, 1/CM POSITION, CM 

STATE 

C.00 



C 


O.COOOOOOE- 

-38 C.OOOOOOOE- 

38 C.OCCOOOOE 

-38 0 . 1359000E-07 

STATE 

0.00 



1 


0. OOOOOOOE-38 O.OOOOOOOE- 

38 O.OOOOOOOE 

-38 C.1209300E-07 

ELECTRONIC 


ELECTRONIC 








CEGENERACY 


TERM ENERGY 

WE 

WEXE 

WEYE 

WEZE 

BE 

ALPHA E 

STATE 

i 


5 • 59C10CCE 

OA 

1 .2 180000E 03 

9. 5000000E 00 

C.OCOOOOOE-39 

C.OCOOOOOE-39 

1 . 331 OOCOE 00 

1 . 6000000E-02 

STATE 

6 


A.8687550E 

OA 

1.7392500E 03 

1.AA7000CE 01 

O.OCOOOOOE-39 

O.OOOOOOOE -3 9 

1.681 OOOOE 00 

1 . 9300000E-02 


2 


9.980 5000E 

CA 

2.1 120000E 03 

1 . 9800000E 02 

C.OCOOOOOE-39 

C.CCCOOOOE-39 

O.OOOOOOOE-39 

C.OOOOOOOE-39 


3 


9.31 578CCE 

OA 

0 . C COOOCOE-39 

0 . 0000000E-39 

O.OCOOOOOE-39 

O.OOOOOOOE-39 

1.95630C0E 00 

O.OOOOOOOE-39 


1 


S.2928000E 

OA 

2 . 13A0000E 03 

0 . CC0C000E-39 

C.OCCOOOOE-39 

O.COOOOOOE-39 

O.COOOOOOE-39 

O.OOOOOOOE-39 


1 


9. 19260G0E 

CA 

2.1 330000E 03 

O.GCOOOOOE-39 

O.COOOOOOE-39 

O.OOOOOOOE— 39 

1 . 9A22000E 00 

O.OOOOOOOE-39 


3 


9.C973000E 

OA 

C .CC00000E-39 - 

■C.CCOOOOOE-39 

-C.OCOOOOOE-39 

-O.OOOOOOOE-39 - 

O.OOOOOOOE-39 

-O.OOOOOOOE-39 


1 


8.69A8000E 

OA 

2.0820700E 03 

0.CC00000E-39 

C.CCOOOOOE-39 

O.COOOOOOE-39 

1.9610000E 00 

2. 7000000E-02 


3 


8.38CA000E 

OA 

2 . 1980000E 03 

O.OCOOOOOE-39 

O.OCCOOOOE-39 

O.OOOOOOOE-39 

2.07500CCE 00 

3. 3000000E-02 


2 


6 . 5C7A8CCE 

OA 

1.51561C0E 03 

1.7250500E 01 

O.OCOOOOOE-39 

O.OOCOOOOE-39 

1.611 60C0E 00 

2. 2290000E-02 


6 


6 . 2 299A00E 

OA 

1 . 1377900E 03 

7 . 62AOOOOE 00 

-1.1250000E-01 

O.OOOOOOOE-39 

1.261 5000E 00 

1 . 7000000E-02 


1 


C.CCCOOOOE- 

-39 

2.1702 1C0E 03 

1.3A610C0E 01 

3 . 0800000E-02 

O.OOOOOOOE-39 

1.93139C0E 00 

1 . 7A85OC0E-02 







FRANCK- CON CON 

FACTOR 




VV 

0 


1 

2 

3 

A 

5 

6 7 

8 

9 


3.7000E-C2 
1.0300E-01 
1.62CCE-C1 
1.81C0E-C1 
1.6500E-C1 
1 . 2900E-C 1 
9. 10CCE-02 
5.90CCE-C2 
3 . fc0C0E-C2 
2. 1000E-C2 
1.5CCCE-C2 
1.2OC0E-C2 
7.0000E-C3 
**<$***♦*♦ 
* *♦*<*»*** 

* 444 * 4*444 

444*4444*4 

4*44444444 

44 44444444 


1.A30CE-C1 
1.9 500E-0 1 
l.OSCOE-Ol 
1 .9000E-02 
3.0000E-03 
3 • 90C0E-C2 
8 . 1CC0E-02 
1.02C0E-C1 
9.50C0E-C2 
8 .2OC0E-C2 
6 .A000E-C2 
5 .OOOOE-C2 
3 . 80C0E-C2 

4 ********* 
4444444444 

44444*4444 
*4444**444 
*44 44 444 44 


2.42C0E-C1 
9 *70006-02 
********* * 
5.OOC0E-O2 
5.90CCE-C2 
6 *70C0E-02 
2.40COE-C2 
1.00C0E-C3 
5 ♦OOCCE-G3 
2 « 3CCCE-C2 
4.10C0E-C2 
5.20C0E-02 
5.5CC0E-C2 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
*** * ****** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
**** ****** 
********** 


********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
****** «*** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


VV iC 
V 

0 ********* 

1 ********* 
2 ********* 
2 ********* 

4 ********* 

5 ********* 

6 ********* 

7 ********* 

8 ********* 
9 ********* 

10 ********* 
11 ********* 
12 ********* 

13 ********* 

14 ********* 

15 ********* 

16 ********* 

17 ********* 

10 ********* 
19 ********* 


IX 

* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ***** **** * 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 
* ********** 


12 

** ******* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
******** * * 
********** 
********** 
********* ^ 


13 

********** 
********** 
*** * ****** 
** * ******* 
********** 
**** ****** 
********** 
********** 
********** 
********** 
********** 
********** 
******** ** 
*** ******* 
********** 
********** 
********** 
********** 
********** 
********** 


14 

********** 
********** 
********** 
********** 
********** 
********** 
******** ** 
******** ** 
***** ***** 
********** 
********** 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********** 


ie 

***** ***** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
****** ** ** 


16 

********** 
********** 
********** 
********** 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


17 

********** 
********** 
** ******** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


18 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


19 

********** 

********** 

********** 

********** 

********** 

********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
**** ****** 
********** 
********** 
********* * 
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INDEX NO. NUMBER 

SPECIFYING SPECIFYING 

DIATOMIC SUBROUTINE DATA LOCATION 

TRANSITION USED IN CALC. ON TAPE 

C2PHIL 2 13 


C2PHIL STANDS FOR C2 PHILLIPS BANDS. 

SPECTCGR APHIC CONSTANTS FROM BALLIK AND RAMSAY ASTROPHYS J 
RKR FRANCK-CONDON FACTORS JCSRT VOL 5 1965 P 165. 
TRANSITION COMPUTED IN SUBROUTINE ONE. 


137 1963 P84. 


LINE 

ALTERNAT ION 
FACTOR 


NUCLEAR SPIN 
FCR HCMONUCLEAR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

HEIGHT 


0.0 


10 


6.0019 


SPIN 

COUPLING 

CONSTANT 


UPPER STATE C.00 

LOWER STATE 0.00 


QUANTUM NUMBER CF 

RESULTANT ELECTRONIC ANGULAR 

MOMENTUM ABOUT INTERNUC. AXIS 

ROTATIONAL 
CONSTANT 
DE, 1/CM 

ROTATIONAL 
CONSTANT 
BETA* 1/CM 

DISSOCIATION 

ENERGY 

DEZERO, 1/CM 

INTERNUCLEAR DISTANCE 
AT EQUILIBRIUM 
POSITION, CM 

1 

C 


0 » OOOOOOOE-3 8 
0.0000000E-38 

C.OOCOOOOE-38 
C. OOOOOOOE-3 8 

0.4 130000E C 5 
0.4960000E 05 

• 

C.1318430E-C7 
0.1 242530E-07 


ELECTRONIC 

DEGENERACY 

UPPER STATE 2 

LOWER STATE l 

1 
1 
6 
2 
6 
3 
3 
6 


ELECTRONIC 
TERM ENERGY 

8 . 391C0CCE G3 

O.COCOOOOE-39 
5.5024600E 04 
4.3240230E 04 
4.C79665CE 04 
3.42619CCE 04 
2.002250CE 04 
1.331 2100E 04 
6.4342700E 03 
7. 1624000E 02 


HE 

1.6C83500E 03 
1.8547100E 03 
1.67150C0E C3 
1 . 82957C0E 03 
1.1C65600E 03 
1.8C91000E 03 
1.7882200E 03 
1 • 96 16000E 03 
1 . 4 704 5 COE C3 
1.64135C0E 03 


WEXE 

1 . 2078000E 01 
1 . 3340000E 01 
4. CC2C000E 01 
1.3970000E 01 
3. 9260000E 01 
1. 58100C0E 01 
1. 6440000E 01 
1.3850000E 01 
1. 1 190000E 01 

1. 1670000E 01 


WEYE 

-1.OC000C0E-02 
-1.7200000E-C1 
2.4 600000E-C 1 
0 . OCOOOOOE-39 
2 . 8 C5000CE 00 
-4.0200G00E 00 
-5.0670000E-01 
O.OCOOOOOE-39 
2.0C0O000E-C2 
C. OCOOOOOE-39 


WEZE 

C.OOOOOOOE-39 
O.OOOOOOOE-39 
C.CCOOOOOE-39 
0 . 00 00 00 OE— 39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
O.OOOOOOOE-39 
0 . COOOOOOE-39 


BE 


1.61634C0E 

oc 

1 .8198400E 

00 

1 . 7920000E 

00 

1 . 8334000E 

00 

1.1S220C0E 

00 

1 . 78340COE 

CO 

1.7527CCCE 

00 

1 . 8 700000E 

oc 

1 .4985200E 

00 

1 .63246C0E 

00 


ALPHA E 

1 . 6880000E-02 
1 . 7650000E-02 
4.2 1C0000E-02 
2.0400000E-02 
2. 4200000E-02 
1 . 8000000E-02 
1 . 6080000E-02 
0. 00 0000 OE -39 
1. 6340000E-02 
1 . 66 1000CE-02 


VV 0 
V 

0 4.1570E-C1 

1 3 . 3580E-C 1 

2 1.5910E-01 

3 5 • 8500E-02 

4 2.0100E-02 

5 6 . E00CE-03 

6 2.3000E-C3 

7 8 , COCO E— 04 

8 3.CC00E-C4 

9 1 . G00OE-04 
10 ********** 
U ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

10 ********** 
19 ********** 


1 

3 .97008— Cl 
7.2000E-C3 
1 . 7800E-C 1 
1.9520E-C1 
1.21 fcOE-Ol 
6. 0200E-02 
2.56C0E-C2 
1.0000E-02 

3 • 60C0E— C 3 
1.2000E-03 
********** 
********** 
* + * ****** * 
* ********* 
********** 
********** 
********** 

4 * $4 * + + 4 4 4 
4*4*4**+** 


2 

1 . 5360E-01 
2.S4S0E-C1 
5.3CC0E-C2 
3.5200E-C2 
1.3E70E-C1 
1.4290E-01 
9.56CCE-C2 
5 . 12C0E-0 2 
2 . 3500E-C2 
9.6CC0E-03 

*44++***** 
********* * 
4***4***++ 
********** 
********** 
********** 
*'********* 
********** 
********** 
********** 


FR ANCK-CCNCCN FACTOR 


3 

3.02C0E-02 
2.61 70E-01 
1 . 23 80E-01 
1.4430E-01 
1 . OCCOE-03 
5.7200E-02 
1. 1860E-01 
1. 13 S0E-01 
7.67COE-02 
4 . 2 3 C0E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


4 

3. 2000E-03 
8.4800E-02 
2 . 9440E-C l 
1.6700E-02 
1.6310E-01 
3. 8600E-C2 
7. 80C0E-03 
7. 1400E-02 
1 . 0850E-C 1 
9.6600E-02 
********** 
********** 
******** *,+ 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


2.0000E-04 
1.4100 E-02 
1.4950E-01 
2.4820E-01 
7 • 4000E-C3 
1. 1550E-01 
8 .7 500 E-02 
2 . 5C0OE-O3 
2.91C0E-C2 
8.6400E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


6 

********** 
1 . 4000E-03 
3 . 5300E-02 

2 . C630E-01 
1 . 4430E-0 1 
6.6000E-C2 
4.4900E-02 
1 . 1480E-0 1 
2.8700E-02 
4 , 7000E-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


7 

********** 
2.0000E-04 
5.60C0E-03 
7.3100E-02 
2.3470E-C1 
4. 6800E-02 
1.2680E-C1 
2 . 3000E-03 
9.9000E-02 
6 .4600E-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


8 

********** 
********** 
1 . COCOE-03 
1.77C0E-02 
1.2350E-01 
2 • 1310E-01 
2.00COE-03 
1 .4570E-01 
I.04C0E-02 
5 • OCOE-02 
********** 
********** 
** ******** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


9 

********** 
********** 
2. OOOOE-04 
3. 60C0E-03 
3. 83C0E-C2 
1.6580E-01 
1 .5560E-01 
1 . 1800E-02 
1 . 2020E-01 
4.5300F-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


VV 1C 
V 

0 ********** 

1 ********** 
2 ********** 

3 7. OOOOE-04 

4 8.90CCE-03 

5 6 . 60CCE-02 

6 1.9520E-01 

7 9.0600E-02 

8 5.0 1CCE-0 2 

9 7 • 57C0E-02 
10 ********** 
11 ********** 
12 ********** 

13 ********** 

14 *+***+**++ 

15 ********** 

16 ********** 

17 ********** 

18 ********** 

19 ********** 


11 

4 44 4 444 44 4 
4444 
4 4 44444444 
444444444 4 
**+44*4444 

4444444444 

444*444444 

4444444444 

4444444444 
4 444444444 
4444444444 
4444444444 
4444444444 
4444444444 

4444444444 

4444444444 

4444444444 

*444444444 

4444444444 

4444444444 


12 

4444444444 
4444444444 
444 4444444 
4444444444 
4444444444 
4444444444 
4444444444 
4444444444 

4444444444 

4444444444 

4444444444 

4444444444 

4444444444 

4444444444 
4444444444 
4444444444 
4 444444444 
4444444 444 
4444444444 
4444444444 


13 

4444444444 
4444444444 
4444444444 
4444444444 
444 4444444 
4444444444 
4444444444 

4444444444 
4444444444 
4444444444 
4444444444 
4444444444 
4444444444 
4444444444 
4444444444 
4444444444 
4444 444444 
4444444444 

4444444444 

4444444444 


14 

4444444444 

44 44444444 
4444444444 
4444444444 
444 4444444 
4444444444 
444*444444 
4444444444 
4444444444 
4444444444 
4444444444 

4444444444 
44444 44444 
4444444444 
444 4444444 
4444444444 
444444444 4 
4444444444 
4444444444 

4444444444 


15 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


16 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


17 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

*****j**** 

********** 

********** 

********** 

********** 


18 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


19 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 
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INDEX NO. 

NUMBER 


SPECIFYING 

SPECIFYING 

0 I ATOM I C 

SUBROUTINE 

DATA LOCATION 

TRANSITION 

USED IN CALC. 

ON TAPE 

02 SR 

1 

14 

SPECTCGRAPHIC CONSTANTS FROM FERZBERG. 



MORSE FRANCK-CONDON FACTORS BY JARMAIN, 

, FRASER, AND NICHOLLS 1954 

ASTRO PH YS J 122, EE <19551 




TRANSITION COMPUTED IN SUBROUTINE ZERO. 


L INE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN 
FOR HCMONUCL E AR 
MOLECULES 


NUMBER OF 

ELECTRONIC 

LEVELS 


REDUCED 

ATOMIC 

HEIGHT 


0.0 


5 


8.0000 


SPIN 

COUPLING 

CONSTANT 


QUANTUM NUMBER OF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 
MOMENTUM ABOUT INTERNUC. AXIS CE, 1/CM 


ROTATIONAL 
CONSTANT 
EETA, 1/CM 


CIS SCO I AT ION INTERNUCLEAR DISTANCE 

ENERC-Y AT EQUILIBRIUM 

CEZERO, 1/CM POSITION, CM 


UPPER STATE C .00 

LOWER STATE C .00 


C 

C 


C.0CCCC00E-38 
0. 0 0000 00 E— 38 


C.C0C0000E-38 
C • OOCOOOOE-38 


C . 1 430000E CE 
0 .4760000E 05 


C. 16C4C0CE-07 
0.1207398E-07 


ELECTRONIC ELECTRONIC 



DEGENERACY 

TERM ENERGY 

WE 


WEXE 


HEYE 

WEZE 

BE 


ALPHA E 

UPPER 

STATE 

3 

4.98C21CCE 

04 

7.CC36CCCE 

02 

8.00230COE 

00 

-3.7E3500CE-C1 

C .OOCOOOC E-39 

8 . 19C00C0E- 

-Cl 

1. 10COCCOE-O2 

LOWER 

STATE 

3 

O.OOOOOOOE- 

39 

1.5803610E 

03 

1. 2073000E 

01 

5.4600000E-02 

-1.4300000E-03 

1 .4456660E 

00 

1. 5791 OOOE— 02 



3 

3.6C960CCE 

04 

8 . 19000C0E 

02 

2.2 EOCCCCE 

01 

C .OCCOOOOE-39 

C.CCC0000E-39 

1.05C00C0E 

oc 

O.OOOOOOOE-39 



1 

1.31952 20 E 

04 

1 .4326870E 

03 

1. 3950C8CE 

01 

— 1.0 750000E-02 

O.OOOOOOOE-39 

1 .4004160E 

00 

1. 8170000F-02 



2 

7.9 1810CCE 

03 

1 .5C93CCOE 

C3 

1. 2900000E 

01 

C.0C00000E-39 

0 . CCOOOOOE-39 

1 .42640C0E 

CO 

1.71O0000E-O2 


FRANCK -CONDON FACTOR 


VV C 
V 

0 2.3 100E-CS 

1 2 • 69CCE-C8 

2 1.64CCE-C7 

3 6.94 CCE-C7 
A 2 . 2800E-C6 

5 6 . 2C0CE-C6 

6 1 . 50C0E-C5 

7 3.18CCE-C5 

8 6. I200E-05 
5 1.C8CCE-04 

IC 1.8000E-C4 

11 2.7900E-C4 

12 4 • 1600E-04 

13 E.eeCOE-CA 

14 7.S5CCE-C4 

15 I.C4CCE-C3 

16 ********** 

17 ********** 

18 ^*«**4#* I J« 
lg «***t***H 


1 

6.2500E-08 
6.64 00 E— 07 
3.6S00E-06 
1.4300E-C5 
4 . 32C0E-0 5 
8.48CCE-05 
2.37C0E-C4 
4.62 00 E— C4 
8 . 12C0E-C4 
1 . 32C0E-03 
2 . 0200E-03 
2. 89CCE-C3 
3 . 9400E-C3 
5. 13CCE-03 
6 . 4200E-03 
7. 74C0E-03 
*** ** * 
**** 

********** 

********** 


2 

8 . 12C0E-C7 
7. 84C0E-C6 
5.61COE-C5 
1.39C0E-C4 
3 . 80C0E-C4 
8.64CCE-C4 
1 .71C0E-03 
3 .00C0E-C3 
4 . 8CC0E-C2 
7 .07C0E-C3 
9.7200E-C3 
1 .25C0E-C2 
1 . 54CCE-C2 
1 . 82CCE-C2 
2 .C4C0E-C2 
2 .22C0E-C2 
********** 
********** 

********** 


3 

********** 
********** 
********** 
********** 
********** 
********** 
*** * ****** 
*** * ****** 
********** 
********** 
********** 
*** ******* 
****** **** 
********** 
********** 
***** ***** 
********* * 
**** 4 ***** 
********** 
*** ******* 


A 

****** ** ** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
***** ***** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
******* *** 
****** **** 
********** 
********** 
********** 
********** 


6 

********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
***** ***** 
* * ****** ** 
********** 
********** 


7 

********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
****** **** 
********** 
* * ******* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
* ********* 


8 

********** 
********** 
********** 
********** 
********** 
********** 
********** 
**** ***** * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
* * ** ****** 
* * ******** 
********** 


9 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


V 

C 

1 

2 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1 * 

15 

16 
17 
16 
19 


VV 1C 

********** 
********** 
********** 
********** 
********** 
********** 
********** 
** ** ****** 
********** 
********** 
********** 
********** 
** ******** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


n 

***** ** ** * 
***** ***** 
*** ******* 
******** * * 
********** 
** * ***** * $ 
********** 
********* * 
********** 
* * ** ****** 
** * ** * **** 
*$7*$*$**** 
* * * * ** * ** * 
********** 
********** 
********** 
********** 
********** 
* ******** * 
*** ****** * 


12 

********** 
********** 
********* * 
* ********* 
* * *** ***** 
* * ******** 
********** 
********** 
********* * 
********** 
* *** **** * * 
******** * * 
********** 
********** 
********** 
********** 
********** 
********** 
********* * 
****** * * * * 


13 

** * * ****** 
**** ****** 
********** 
**** ****** 
********** 
********** 
******** ** 
***** ***** 
********** 
*** * ****** 
********** 
******** ** 
********** 
*** ******* 
*** * ****** 
********** 
********** 
********** 
********** 
********** 


1A 

** * * ****** 
********** 
********** 
********** 
********** 
********** 
********** 
*** ** ***** 
********** 
********** 
****** ** ** 
********** 
********** 
*** ******* 
** ******** 
********** 
********** 
** ******4* 
********** 
***** **** * 


15 

********* * 
********** 
********** 
********** 
********** 
********** 
********** 
* ** *** **** 
********** 
********** 
********** 
********** 
********** 
********** 
* ***** *** * 
********** 
********** 
********** 
********** 
***** * **** 


16 

********** 
******** ** 
********** 
********** 
********** 
******** * * 
** ******* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
* **** **** * 
********** 
********** 
********** 


17 

********** 
********** 
********** 
********** 
********** 
********** 
* ******** * 
********** 
********** 
**** ** **** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
** * ******* 


18 

********** 
********** 
********** 
********** 
* ********* 
********** 
********** 
********** 
********** 
********** 
********** 
* ********* 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


1 ° 

********** 
********** 
********** 
********** 
** ** ****** 
********** 
********** 
********** 
***** ***** 
* ********* 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
** ******** 
********** 
********** 
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DIATOMIC 

TRANSITION 

CH4300 


INDEX NO. 
SPECIFYING 
SUBROOT INE 
USED IN CALC. 
2 


NUMBER 
SPECIFYING 
DATA LOCATION 
CN TAPE 

15 


SPECTCGRAPH IC CONSTANTS FROM HERZBERG. 

MORSE FRANCK— CCNCCN FACTORS JCSRT VOL 4 P283 1564 

TRANSITION COMPUTEC IN SUBROUTINE ONE. 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN NUMBER OF 

FCR HCMONUCL E AR ELECTRONIC 

MOLECULES LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


UPPER 

LOWER 



c. 

0.0 


4 

C . 9300 



SPIN 

CCUPLING 

CONSTANT 

QUANTUM NUMBER CF 

RESULTANT ELECTRONIC ANGULAR 

MOMENTUM A 8 CUT INTERNUC. AXIS 

ROTATIONAL 
CONSTANT 
OE, 1/CM 

ROTATIONAL 
CONSTANT 
BETA, 1/CM 

DISSOCIATION 

ENERGY 

CEZERO, 1/CM 

INTERNUCLEAR D 
AT EQUILIBRIUM 
POSITION, CM 

"4 

—4 — 1 

m m 

0 .00 
0.00 

2 

1 

O.OOOOOOOE-38 
0 .OOOOOOOE-3 8 

C .0000000E-38 
C.OOOOOOOE-38 

C .OCCOOOOE— 38 
0.28COOOOE 05 

C.11C26C0E-07 
0.1119 800E-07 


ELECTRON IC 
CEGENERACY 

UPPER STATE 4 

LOWER STATE 4 

2 
2 


ELECTRONIC 
TERM ENERGY 

2.315000CE 04 
O.OCCOOOOE-39 
3. I82IOCOE 04 
2 . 5949000E 04 


WE 

2.921000CE 03 
2.E616000E 03 
2.8241CC0E 03 
2.54250COE 03 


WEXE 

9 . 0400000E 01 
6.430000CE 01 
I.C58C0CCE C2 
3. 7380000E 02 


WEYE 

C.OCOOOOOE-35 
O.OOOOOOOE-39 
C .0CC0000E-39 
O.OOOOOOOE-39 


weze 

C.CCC0000E-39 
O.OOOOOOOE-39 
O.CCCOOOOE-35 
0 . OOOOOOOE-3 5 


BE 

1.49120C0E 01 
1.4457000E 01 
1 • 46290C0E 01 
1 . 28870C0E 01 


ALPHA E 

6. 7000000E-01 
S.34C0000E-01 
7.44CO0C0E-01 
4. 8500000E— 01 


VV C 
V 

C 9 . 9960E-C 1 

1 2.0000E-04 

2 ********** 

3 ♦*#*♦***4* 

4 ********** 

5 ********** 

6 ********** 
7 ********** 
g ********** 

5 ********** 

10 ********** 
11 ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 

19 ********** 


1 

2.00COE-C4 
9.9860E-01 
1 . 0000 E— 04 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


2 

********* * 
1.00C0E-04 
9 .5470E-C1 
3 . 2000E-C 3 
********** 
********** 
1.0000E-C4 
********** 
********** 
********** 
********** 
********** 
**** **** * * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


FRANCK -CCNCCN FACTCR 

4 5 6 


7 


8 9 


********** 
********** 
2. 6CC0E-C3 
c. 81<;0E-01 
1.46G0E-02 
********** 
2 • 3CC0E-C3 
********** 
********** 
********** 
********** 
********** 
********** 
*** ******* 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
1 . 00QQE-04 
********** 
1.310CE-02 
9, 2530 E— Cl 
4 . 96C0E-02 
1.280CE-02 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
********** 
********** 
1 • 6000E-03 
4.2 100 E~0 2 
8.8620E-01 
********** 
* ** < * ***** 
********** 
********** 
********** 
******** ** 
********** 
********** 
********** 
********** 
********** 
****** **** 
********** 
********** 


********** 
********** 
********** 
1.0000E-04 
********** 
********** 
********** 
********** 
********** 
***** ***** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
********** 
********** 
********** 
******* *** 
****** **** 
*********4 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
********** 
********** 
********** 
**** ****** 
********** 
********** 
********** 
********** 
* ******** * 
********** 
********** 
** ** ***** * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


********** 
********** 
***** ***** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


VV 1C 
V 

0 ********** 
1 ********** 
2 ********** 

3 ********** 

4 ********** 

5 ********** 

6 ********** 

7 ********** 

8 ********** 

<5 ********** 

10 ********** 
11 ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 

19 ********** 


11 

* * ******** 
********** 
* * * ****** * 
********** 
********** 
********** 
********* * 
** ******** 
********** 
********** 
********** 
********** 
********** 
***** ***** 
********** 
********** 
********** 
********** 
********** 
********** 


12 

********** 
******** ** 
********** 
********** 
********** 
********** 
* * 3 ******** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 


13 

********** 
*** * ****** 
********** 
********** 
********* * 
********** 
*** ******* 
********** 
********** 
********** 
********** 
*** ******* 
********** 
*** * ****** 
**** ** **** 
********** 
********** 
*** ******* 
********** 
*** * ****** 


14 

********** 
********** 
********** 
** ******** 
********** 
********** 
********** 
** * ******* 
********** 
********** 
********** 
***** ***** 
********** 
*** ******* 
********** 
********** 
*** ******* 
********** 
********** 
********** 


15 

********** 
********** 
* **** ***** 
****** ** ** 
********** 
********** 
********** 
********** 
********** 
********** 
******** ** 
********** 
********** 
********** 
********** 
********** 
* ********* 
********** 
********** 
********** 


16 

********** 
********** 
********** 
********** 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********* * 
********** 
********** 
***** *** * * 
********* * 
********** 
********** 
********** 


17 

********** 
********** 
********** 
********** 
********** 
* ** ******* 
********* * 
********** 
* ** ******* 
********** 
********** 
********** 
********** 
********** 
********** 
* * * ******* 
********** 
********** 
********** 
********** 


18 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

* 4 ******** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


19 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 
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INDEX NO. NUMBER 

SPECIFYING SPECIFYING 

DIATOMIC SUBROUTINE DATA LOCATION 

TRANSITION USED IN CALC. ON TAPE 

CH3900 3 16 

SPECTCCRAPHIC CONSTANTS FRCM HERZEERG 

MORSE FRANCK-CCNDCN FACTORS JCSRT VOL A PZ83 1964 

TRANSITION COMPUTED IN SUBROUTINE S2 PI2. 


LINE NUCLEAR SPIN NUMBER CF REDUCED 

ALTERNATION FCR HCMONUCLEAR ELECTRONIC ATOMIC 

FACTOR MOLECULES LEVELS WEIGHT 

0. 0.0 4 C .9300 


SPIN QUANTUM NUMBER CF ROTATIONAL ROTATIONAL DISSOCIATION INTERNUCLEAR DISTANCE 

COUPLING RESULTANT ELECTRONIC ANGULAR CONSTANT CONSTANT ENERGY AT EQUILIBRIUM 

CONSTANT MOMENTUM ABOUT IMERNUC. AXIS DE, 1/CM BETA, 1/CM DEZERO, 1/CM POSITION, CM 

UPPER STATE 0.00 C C . OOCOOOOE-3 6 C .OOOOOOOE-38 C .OOOOOOOE- 38 C. 11861CCE-07 

LOWER STATE 27.95 1 0. OOOOOOOE-38 0 .OOOOOOOE-38 0.2800000E 05 0. 11 19800E-07 


ELECTRONIC ELECTRONIC 

DEGENERACY TERM ENERGY WE WEXE WEYE WEZE BE ALPHA E 


UPPER STATE 2 

LOWER STATE 4 

2 
4 


2.594900CE 04 
O.OCOOOOOE-39 
3.18210CCE 04 
2.31 5000CE 04 


2.5425CCCE 03 
2 . 8616000E 03 
2.824ICC0E 03 
2.9210000E 03 


3. 7380000E 02 
6.4300000E 01 
I . C EBOOOOE 02 
5. C400000E Cl 


C.OCOOOOOE-39 
O.OCOOOOOE-39 
C.OCCOOOOE-39 
C. OOOOOOOE— 39 


O.COOOOOOE— 39 
C. OOOOOOOE -3 9 
C.OOOOOOOE-35 
O.OOOOOOOE-39 


1.28870COE 01 
1.4457000E 01 
1.4629000E 01 
1.49120C0E 01 


4. B5COC0OE-O1 
5.3400000E-01 
7.44C0000E-01 
6. 7000000E-01 


FRANCK-CCNDCN FACTOR 


VV C 1 2 3 4 

V 

0 5. 93 70E-C 1 6.0000E-04 1.6910E-C1 5.25C0E-02 0.OOCOE-O3 

1 1. 3000E-03 2 . 1760E-C 1 1.67C0E-02 1.1160E-01 1.3970E-01 

2 1 . E450E-C 1 1.66C0E-C2 4.CCC0E-C4 1.62CCE-02 1.8C00E-03 

3 ********** 2.1740E— CL 1.2000E-C3 7.45C0E-02 8.7C00E-03 

4 8.1100E-02 I.65CCE-02 5.76CCE-C2 1.42C0E-02 3.8900E-C2 

5 7 . COOOE-04 1.6100E-01 2.15COE-02 1.00C0E-03 ********** 

6 3.8300E-02 1.02C0E-02 8.13CCE-C2 5.13C06-02 ********** 

7 ********** ********** ********** ********** ********** 

g ********** ********** ********** ********** ********** 

9 ********** ********** ********** ********** ********** 

10 ********** ********** ********** ********** ********** 

11 ********** ********** ********** ********** ********** 

12 ********** ********** ********** ********** ********** 

13 ********** ********** ********** ********** ********** 

14 ********** ********** ********** ********** ********** 

15 ********** ********** ********** ********** ********** 

16 ********** ********** ********** ********** ********** 

17 ********** ********** ********** ********** ********** 

18 ********** ********** ********** ********** ********** 

19 ********** ********** ********** ********** ********** 


5 6 7 8 9 

5.5700E-02 3 • 3 IOOE-02 1.7000E-03 ********** ********** 
6 . 8000E-03 4.5700E-02 1.1270E-01 ********** ********** 
4.5300E-02 2.44C0E-C2 6.0000E-04 ********** ********** 
9.2000 E-03 4.2800E-02 7.9100E-02 ********** ********** 
4.9000E-03 3.9000E-03 ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 
********** ********** ********** ********** ********** 


VV 1C IX 12 13 14 

V 

C ********** *4******** ***$*** + 4+ 444 ******* ********** 

1 ********** ********** ********** ********** ********** 

2 ********** ********** ********** ********** ********** 

3 ********** ********** ********** ********** ********** 

4 ********** ********** ********** ********** ********** 

5 ********** ********** ********** ********** ********** 

6 ********** ********** ********** ********** ********** 

7 ********** ********** ********** ********** ********** 

g ********** ********** ********** ********** ********** 

9 ********** ********** ********** ********** ********** 

10 ********** ********** ********** ********** ********** 

11 ********** ********** ********** ********** ********** 

12 ********** ********** ********** ********** ********** 

13 ********** ********** ********** ********** ********** 

14 ********** ********** ********** ********** ********** 

15 ********** ********** ********** ********** ********** 

16 ********** ********** ********** ********** ********** 

17 ********** ********** ********** ********** ********** 

18 ********** ********** ********** ********** ********** 

19 ********** ********** ********** ********** ********** 


15 16 17 18 19 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 

********** ********** ********** ********** ********** 
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DIATOMIC 

TRANSITION 

BEOB-X 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
1 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
17 


SPECTCGRAPHIC CONSTANTS FROM HEPZBERG 
MORSE FRANCK CONCCN FACTORS JCSRT VOL 
VALUES USED WERE THE AVERAGE GF THOSE 
THIS TRANSITON COMPUTED IN SUBROUTINE 


7 P639 1967. 

FOR THE P AND R BRANCHES FOR J = 20. 
ZERO. 


LINE 

ALTERNATION 

FACTOR 


NUCLEAR SPIN NUMBER OF 

FCR HCMONUCL E AR ELECTRONIC 

MOLECULES LEVELS 


REDUCED 

ATOMIC 

WEIGHT 


0.0 


5.7661 


SPIN 

COUPLING 

CONSTANT 


QUANTUM NUMBER GF 

RESULTANT ELECTRONIC ANGULAR 

MOMENTUM ABOUT INTERNUC. AXIS 


ROTATIONAL 
CONSTANT 
CE, 1/CM 


POTAT IGNAL 
CONSTANT 
BETA, 1/CM 


DISSCCI AT ION INTERNUCLE AR DISTANCE 

ENERGY AT EQUILIBRIUM 

DEZEROt 1/CM POSITION, CM 


UPPER STATE 

C .00 

C 

C . OOCOOOOE — 3 6 

C.OOCOOOCE-38 

C . OOCOOOOE- 38 

G . 1 36 2200E-0 7 

LOWER STATE 

0 .00 

0 

0.0C00000E-38 

0 . OOCOOOOE— 3 8 

0.2 990000E 05 

0. 1330800E-07 



EL 

ECTRCMC 

ELECTRON IC 












CEGENERACV 

TERM ENERGY 

we 


WEXE 


WEYE 

WEZE 

BE 


ALPHA E 

UPPER 

STATE 

i 

2.12 5394CE 

04 

1.3708170E 

03 

7 . 7455000E 

00 

— 2.7C0000CE-C4 

C.CCC000CE-39 

1 .57580C0E 

00 

1 . 5400000E-02 

LOWER 

STATE 

1 

0 . OCOOOOOE- 

39 

1.4873230E 

03 

1. 18257C0E 

01 

2.2 350000E-02 

0 . 000000 OE -3 9 

1.65 10000E 

00 

1 .9000000E-02 



2 

4.136*OOOE 

C4 

1 .C 160COOE 

03 

1 . CCCCCCOE 

Cl 

C.0C00000E-39 

O.OCOOOOCE-39 

0. COCOOCOE- 

-39 

0.COOO000E-39 



l 

3.912C1C0E 

04 

I.C815000E 

03 

9. 1C000CCE 

OC 

C.OOOOOOOE-39 

0.0000000E-39 

1 . 3C8COOOE 

00 

1 . OOOOOOOE-02 



2 

9.4C561CCE 

03 

1.1442380E 

03 

8.41450C0E 

00 

3.389000CE-02 

O.OOOOOOOE-39 

1 .3661CC0F 

00 

1. 6280000F-0? 


FRANCK-CGNDON FACTOR 



VV 0 

1 

2 

3 

A 

V 

0 

8.9250E-C1 

1.0450E-C1 

A. 15CCE-C3 

***** ***** 

********** 

1 

1.C085E-01 

7 • 09 75E-01 

1 .8030E-C1 

1.02C0E-02 

********** 

2 

7 .4500E-C3 

1.669CE-C1 

5 • 74 50 E-C 1 

2 • 3 545E-01 

1.6850E-C2 

3 

********** 

1.8750E-02 

2. 0825E-01 

4 . 7480 E-0 1 

2.76CCE-C1 

4 

********** 

********** 

3 • 15 50E-C2 

2.3210E-C1 

4 • 0220E-01 

5 

********** 

********** 

********** 

********** 

********** 

6 

********** 

********** 

********** 

********** 

********** 

7 

********** 

********** 

********** 

********** 

********** 

8 

********** 

********** 

********** 

********** 

********** 

9 

********** 

********** 

********** 

**** **** ** 

********** 

1C 

********** 

********** 

********** 

**** *** * ** 

********** 

11 

********** 

********** 

********* * 

********** 

********** 

12 

********** 

********** 

********** 

********** 

********** 

13 

********** 

********* * 

********** 

********** 

********** 

14 

********* * 

********** 

********* * 

********** 

********** 

15 

***** ***** 

********** 

********** 

********** 

********** 

16 

********** 

********** 

********** 

********** 

********** 

17 

********** 

********** 

* ******* * * 

********** 

********** 

18 

********** 

********** 

******* * * * 

********** 

********** 

19 

********** 

********** 

********* * 

********** 

********** 



VV 1C 

11 

12 

13 

1 A 

V 

0 

********** 

********** 

********** 

********** 

*** ******* 

1 

********** 

********** 

********** 

********** 

********** 

2 

********* * 

* ********* 

** ******** 

********** 

********** 

2 

** ******** 

********** 

********** 

********** 

********** 

4 

********** 

********** 

********** 

********** 

********** 

5 

********** 

********** 

********** 

********** 

********** 

6 

********** 

********** 

********** 

*** * ****** 

********** 

7 

********** 

********** 

********** 

*** * ****** 

********** 

8 

********** 

********** 

********** 

********** 

*** *** ** ** 

9 

********** 

********** 

********** 

********** 

********** 

10 

********** 

********** 

********** 

*** * ****** 

********** 

11 

********** 

********** 

********** 

********** 
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DIATOMIC 
TRANSITION 
CO+ CT 


INDEX NO. 
SPECIFYING 
SUBROUTINE 
USED IN CALC. 
3 


NUMBER 
SPECIFYING 
DATA LOCATION 
ON TAPE 
18 


SPECTROSCOPIC CONSTANTS FROM HERZBERG. 

MORSE FRANCK-CONCCN FACTORS BY J AR M A l N , FR ASE R , ANC NICHCLLS 1954 
ASTROPHYS J 122, 55 (1955) 

THIS TRANSITION CCMPUTEC IN SUBROUTINE S2 PI2. 


E 

NUCLEAR SPIN 

NLMBER OF 

REDUCED 

ERNATICN 

FCR HOMCNUCLEAR 

ELECTRONIC 

ATOMIC 

TOR 

MCLECULES 

LEVELS 

WEIGHT 

, 

0.0 

•x 

6.8582 


SPIN 

CCUPL ING 
CONSTANT 


QUANTUM NUMBER OF ROTATIONAL 

RESULTANT ELECTRONIC ANGULAR CONSTANT 
MOMENTUM ABOUT INTERNUC. AXIS CE, 1/CM 


ROTATIGNAL 
CONSTANT 
BETA, 1/CM 


DISSOCIATION INTERNUCLEAR DISTANCE 

ENERGY AT EQUILIBRIUM 

CEZERO, 1/CM POSITION, CM 


UPPER STATE 125.00 
LOWER STATE 0.00 


O.OOOOOOOE-36 
0 . 0000000E-38 


C.OOOOOOOE-38 

C.OOOOOOOE-38 


C.OOOOOOOE-38 
0 . 7990000E 05 


C. 12436 80E-C7 
0.11 1 5060E-07 


ELECTRONIC ELECTRONIC 



DEGENERACY 

TERM ENERGY 

WE 


WEXE 


WEYE . 

WEZE 

BE 


ALPHA F 

UPPER 

STATE 

4 

2.07331 90E 04 

1.5620600E 

03 

1.353200CE 

01 

1.3 100000E-02 

0.0000000E-39 

1.58940C0E 

00 

1 • 9420000E-02 

LOWER 

STATE 

2 

0 . OCCOOOOE-3 9 

2.2 142400E 

03 

1. 5164000E 

01 

-7.0000000E-04 

O.OOOOOOOE-39 

1 . 9772000E 

00 

1 . 8 9 60 000 E-02 



2 

4.58767C0E 04 

1 .734ieC0E 

03 

2.7927CCCE 

01 

3.283000CE-01 

O.OOOOOOOE-3S 

1 .79992C0E 

CO 

3. C250000E-02 


VV 0 
V 

0 4 . 2000E-02 

1 I . 1300E-C 1 

2 1.66CCE-C1 

3 1 . 8C00E-0 1 

4 1 . 5900E-0 1 

5 1 . 2200E-01 

6 8 . 50CCE-02 

7 5.50CCE-O2 

8 3.4C0CE-C2 

9 ********** 
10 ********** 
11 ********** 
12 ********** 

13 ********** 

14 ********** 

15 ********** 

16 ********** 

17 ********** 

18 ********** 
19 ********** 


1 

1.4900E-C1 
1.9100E-01 
9.9COOE-C2 
1 ■ 5COOE-C2 
4.0000E-03 
4 . 1000E-02 
7 . 80COE-02 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


2 

2.46C0E-C1 
8.30COE-C2 
2.0CC0E-C3 
7 • 1000 E-02 
9 *60 C 0 E-02 
5.10C0E-C2 
********** 
********** 
********** 
********* * 
********** 
********** 
********** 
********** 
* * * ****** * 
********** 
********** 
********** 
********** 
********** 


2 • 49 COE-0 1 
********** 
1.04CCE-01 
7 • 2 C CO E— 02 
1.00C0E-03 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 


FR ANC K- CONDON FACTOR 
4 5 


6 


7 


8 


9 


1*74006-01 
0.4OCOE-O2 
8 * 90 CO E-02 
2.0000E-C3 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

*****4**** 

********** 

********** 

********** 

********** 

********** 


8 • 9000 E-02 
1.8300 E-0 1 
i •00006-03 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 

********** 


3 . 5000E-02 
1. 80006-01 

********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
********** 
** *** *** ** 
********** 


1 . 1000 E-02 
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********** 
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0 ********* 

1 ********* 
2 ********* 

3 ********* 

4 ********* 

5 ********* 

6 ********* 
7 ********* 
0 ********* 
9 ********* 

10 ********* 
1-1 ********* 
12 ********* 

13 ********* 

14 ********* 

15 ********* 

16 ********* 

17 ********* 

18 ********* 

19 ********* 
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APPENDIX E 


SAMPLE CASE 



SAMPLE CASE FOR NASA TN 

CALCULATION INCLUDES THE MHO) BAND OF THE CN RED SYSTEM, 
2 ATOMIC NITROGEN LINES AND AN INSTRUMENT CALIBRATION. 


THE SPECTRUM COMPUTED FROM 10860.00 TO 11085.00 ANGSTROMS AT 0.025 ANGSTROM INTERVALS 


CN RED 


TOTAL NUMBER ELECTRONIC VIBRATIONAL ROTATIONAL 

OF MOLECULES TEMPERATURE TEMPERATURE TEMPERATURE 

PER CC DEGREES K DEGREES K DEGREES K 

1.0900E 15 6.0000E 03 6.C0Q0E 03 6.0000E 03 


line NUCLEAR SPIN NUMBER OF REDUCED 

ALTERNATION FOR HOMONUCLEAR ELECTRONIC ATOMIC 

FACTOR MOLECULES LEVELS WEIGHT 

o. 0.0 3 6. 4643 


SPIN QUANTUM number OF ROTATIONAL ROTATIONAL DISSOCIATION INTERNUCLEAR DISTANCE 

COUPLING RESULTANT ELECTRONIC ANGULAR CONSTANT CONSTANT ENERGY AT EQUILIBRIUM 

CONSTANT MOMENTUM ABCUT INTERNUC. AXIS DE. 1/CM BETA, 1/CM DEZERO, 1/CM POSITION, CM 

UPPER STATE -52.20 1 0.5932700E-C5 -0 . 4246000E-07 D.5740000E 05 0. 1233200E-07 

LOWER STATE 0.00 0 Q.6392000E-C5 -0. 9570000E-08 0.66800006 05 0.1171900E-07 


ELECTRONIC ELECTRONIC 

DEGENERACY TERM ENERGY HE WEXE WEYE WEZE BE ALPHA E 

UPPER STATE A 9.2453440E 03 1.8125550E 03 1.2608600E 01 -1 . 1S00000E-02 O.OOOOOOOE-39 1.7151000E 03 1.7D75700E-02 

LOWER STATE 2 0 .0000003E-39 2.0687AA8E 03 1.313400QE 01 -5.50000006-03 0 . 3000000E-39 1.8992003E 00 1.7013300E-02 

2 2.5751 800E 04 2.1686140E 03 2.0200000E 01 0 .0030000E-39 0.00000006-39 1.9701000E 03 2.2150000E-92 


VIBRATIONAL FRANCK- TRANSITION MOMENT ROTATIONAL LINE RANGE BAND ROTATIONAL INTEGRATED 

QUANTUM NO. CONDON AVERAGED OVER THE WIDTH AT HALF-HEIGHT IN LINE ORIGIN IN QUANTUM NUMBERS INTENSITY 

UPPER LOWER FACTOR ELECTRONIC BAND GAUSS LORENTZ VOIGT WIDTHS ANGSTROMS MIN MAX W/CM2-SR 

0 0 5.0015E-01 5.2100E-01 0.1200 0.1440 0.2119 5 10968.064 2 150 

P2 BRANCH 9.09226-04 

R 1 BRANCH 4.5949E-03 

SR21 BRANCH 6.59406-04 

DPI 2 BRANCH 7 • 6646E-35 

Q2 AND QP21 BRANCHES 4.8071E-03 

Q1 AND QR12 BRANCHES 4.3989E-03 

R2 AND RQ2 1 'BRANCHES 5.9004E-03 
PI AND PQ12 BRANCHES 1.0214E-03 

BAND TOTAL 2.2368E-02 
APPROXIMATE BAND TOTAL 1.0518E-01 


SYSTEM TOTAL 2.2368E-02 


ATOMIC LINE SPECTRUM FOR N 

NUMBER OF 

ATOMS ELECTRONIC PARTITION 

PER CC TEMPERATURE FUNCTION 

2.OG0OE 21 6.COOOE 03 4.1100E 00 

WAVELENGTH ELECTRONIC ELECTRONIC EINSTEIN ATOMIC LINE RANGE INTEGRATED 

IN ANGSTROMS QEGENERACY TERM EnBrGy A COEFF WIDTH AT HALF-HEIGHT IN LINE INTENSITY 

GAUSS LORENTZ VOIGT WIDTHS W/CM2-SR 

10879.200 6 1.046846 05 1.6300E 05 £*.161 0.194 G.285 5 8.4997E-05 

13884.60.3 B 1.04718E 05 1.4100E 05 0.161 0.194 C.285 5 9.9012E-D5 

SUM OF THE N ATOMIC LINES INCLUDED 1.84D1E-D4 

TOTAL OF ALL INTEGRATED INTENSITIES 2.2552E-02 


THIS IS A RADIATIVE TRANSPORT SOLUTION, DEPTH CF ASOVE RADIATING LAYER IS 1.000 CM. 


TABULATION OF COMPUTED SPECTRUM 

WAVELENGTH INTENSITY WAVELENGTH INTENSITY WAVELENGTH INTENSITY WAVELENGTH INTENSITY 

ANGSTROMS W/CM2-M ICRON-SR ANGSTROMS W/CM2-MICR0N-SR ANGSTROMS W/CM2 -MICRON- SR ANGSTROMS W/CM2-MICR0N-SR 

10860.00 O.QCOOE-39 10916.26 1.5053E-02 10972.51 5.7327E-02 11028.77 1.4343E-03 

10860.02 Q.QQQ0E-39 10916.28 1.6037E-02 10972.54 5.9158E-02 11028.79 1.5182E-93 

10860.05 C.0003E-39 10916.31 1.7227E-32 10972.56 4.8218E-02 11028.82 1.6098E-03 

19869.97 O.OOOOE-39 10916.33 1.8684E-02 10972.59 5.1178E-02 11028.84 1.7014E-33 

10860.19 O.COOOE-39 10916.36 2.9432E-02 10972.61 5.4436E-02 11G28.87 1.8158E-D3 

10860.13 O.OCOOE-39 10916.38 2.2569E-02 10972.64 5.8022E-02 11028.69 1.9379E-03 

10660.15 9 .09C0E-39 19916.41 2.5146E-02 19972.66 6.1974E-02 11028.92 2.0599E-Q3 

10860.17 C.G800E-39 19916.43 2.8328E-92 10972.69 6.6345E-02 11028.94 2.2049E-03 


10916. C6 

l « 2 314E-02 

10972.31 

2.1942E-02 

11C28.57 

1.9821E-02 

11084.82 

4.O046E 30 

10916.08 

1.2253E-92 

10972.34 

5.0835E-D2 

11C20.59 

1.9791E-02 

11084.85 

3.0224E 00 

10916.11 

1.2 299E-U2 

10972.36 

5.1147E-02 

1 1028.62 

1 . 8 87 5E-02 

11084.87 

2.3066E GO 

10916. 13 

1 • 2459E-02 

10972.39 

5.1643E-02 

11C28.64 

1 • 8Q44E-C 2 

11084.90 

1 . 7938 E oa 

10916.16 

1.2711E-02 

10972.41 

5.2353E-02 

11028.67 

1.7273E-C2 

11384.92 

1.3880E r,<j 

10916.18 

1.3092E-Q2 

10972.44 

5.3261E-02 

11028.69 

1.6571E-C2 

11084.95 

1.1321E 00 

10916.21 

1.3603E-02 

10972.46 

5. 4390E-02 

1 1C 28 • 72 

1 . 5930E-02 

11084.97 

9.4532E-D1 

10916.23 

1.4 244E-0 2 

10972.49 

5.5740E-02 

11028.74 

1.35 80 E-C 3 

11085.00 

8.0477E-01 
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DETECTOR OUTPUT SIGNAL GIVEN 6T A SPEC IE I ED INSTRUMENT RESPONSE 


SPECTROGRAPH OR SCANNING SPECTROMETER 1 


SPECTRAL RANGE FROM 10865.50 TO 11079.50 ANGSTROMS COMPUTED AT 0.250 ANGSTROM INTERVALS 


SLIT FUNCTION SPECIFIED BY LINEAR SEGMENTS 

WAVELENGTH SLIT 

ANGSTROMS FUNCTION 


-2.500 

-2.250 

- 2.000 

-1.875 

-1.750 

-1.650 

-1.500 

-0.850 

-0.800 

-0.750 

-0.700 

-0.650 

0.500 

0.550 

0.600 

0.650 

0.700 

0.750 

0.800 

1.550 

1.600 

1.650 

1.750 

1.850 

2.000 

2.150 

2.250 

2.500 


O.OOOOE-39 
5.0000E-03 
2.3100E-02 
4.2200E-Q2 
7.2300E-0 2 
1.1040E-01 
2 . 5100E-0 1 
9.0330E-01 
9.3370E-01 
9. A 5 80 E -01 
9.5380E-01 
9 . 598QE-0 1 
9.9600E-01 
l.OOOGE 00 
9.9600E-01 
9.9400E-01 
9.8890E-01 
9.78906-01 
9 . 6380E-0 1 

2.00 80E-0 1 
1.6360E-01 
1 . 3550E-01 
9 . 34006-02 
6.8300E-G2 
4.020GE-02 
1 • 9130E-C2 
1.20006-02 
O.OOOOE-39 


CENTER OF COMPUTED 

SLIT FUNCTION SLIT WIDTH 

ANGSTROMS ANGSTROMS 


0 .009 


2.S250E 00 


SPECTRAL CALIBRATION OF INSTRUMENT THAT MULTIPLIES SLIT FUNCTION TO YIELD INSTRUMENT SENSITIVITY 


WAVELENGTH 

ANGSTROMS 

10860.000 

10870.000 

10880.000 

10890.000 

10900.000 

10910.000 

10920.000 

10930.000 

10940 .000 

10950.000 

10960.000 

10970.000 

10975.000 

10980.000 

10990.000 

11002.000 
11012.000 

11018.000 

11025.000 

11040.000 

11062.000 

11065.000 
11072 .000 

11080.000 

11085.000 


CALIBRATION 
FUNCT ION 

9 .OOOOE-O 1 
8.9000E-C1 
s.aocoE-ci 
8.7100E-31 
8.6000E-C1 
8.4'800E-01 
8. 35006-01 
8. 22006-01 
8 « 14006-0 1 
8.06COE-G1 
7 .99006-0 l 
7.80006-01 
7.6500E-C1 
7 « 5000E-0 1 
7.3000E-01 
7.02006-01 
6 . 65C0E-C 1 
6 • 5500E-0 1 
6.55C0E-01 
6. 2Q00E-U 1 
5.52006-01 
5 . 5200E-C1 
5.350QE-Q1 
5.2000E-01 
5 .OOOOE-O 1 


location of instrument output 

SLIT CENTER I W/CM2-M ICRCN-SR ) * 

ANGSTROMS ISENSITIVITY UNITS! 


10865.500 

10865.750 

10866.000 

10866.250 

10866.500 

10866.750 

10867.000 

10867.250 


O.OOOOE-39 
Q.OQOOE-39 
0 .OOOOE-39 
0.C000E-39 
O.OOCOE-39 
O.COCOE-39 
O.OOOOE-39 
Q.COOOE-39 


11077 .750 

11078.000 

11078.250 

11078.500 

11078.750 

11079.000 

11079.250 

11079.500 


4. 12666-01 
3.71076-01 
2.8352E-01 
1.85756-01 
9.6976E-02 
5.17676-02 
5.0561E-02 
8.4439E-02 
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Figure 1.- 


Simplified flow chart 


of Main Program. 
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Figure 2.- Illustration of notation used in building the spontaneous-emission spectrum. 



U, cm 


Figure 



from ref. 9) 
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Figure 4.- Expressions used to find internuclear distance R’ , at the local 

maximum of the potential well. 





Figure 5.- Energy difference between local maximum of potential well and sum of 

vibrational and rotational energies. 




NPOINT < iOO 



Figure 7.- Slit functions used in 



NRLAMS < 100 



lib 


LAMR(M), Wavelength, A 

Figure 8.- Spectral calibration of grating spectrograph or scanning 

spectrometer. 




